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ACRO REV 26.59 99:50:19 11/14/81 d 

3333353335333 353333333153 ΑΛ EIS 

, 

; MACROS ASSOCIATED WITH WINDOW MAP DRIVER 

? 

; FILENAME: WMDRVMAC.SR > 

I 

11. 

MMU= 2 ; DEVICE CODES FOR NOVA 

MMU1= 3 ° 

EMAP- 3 ; DEVICE CODE FOR ECLIPSE 2 

LMP- 113419 ; LOAD MAP INSTRUCTION FOR ECLIPSE 

BLM- 133719 ; BLOCK MOVE INSTRUCTION FOR ECLIPSE 

.DIAC MTFP= 4060001 ; NOVA 3 MOVE TO FP INSTRUCTION # 
.DIAC MFFP= 960201 ; NOVA 3 MOVE FROM FP INSTRUCTION 

3 E 

; PARAMETERS FOR TRANSLATION TABLE 2 

| 

ππευν- ο ; START OF TRANSLATION FUNCTIONS 5 

TTLEN- TTFUN-1 > LENGTH OF TRANSLATION TABLE 2 

TTADR-  TTLEN-1 : ADDRESS OF TRANSLATION TABLE E 
τ: ο kk 


AC IS 


Νορ wo Wo 009 we SO we wo Vo wo we wo 


*"60 sao * 00 MO we woe WO WO wo WO We 59 


CALL SEQUENCE: 


IFNOVA 


<NOVA RETURN? 


AC 


<ECLIPSE RETURN»? 


DESTROYED 
.MACRO IFNOVA 
SUBZL A 
MPEP “ιν. 

NEG 2315 1 
MFFP — ^1 

INC 1,°1,SNR 
JMP .+2 


BLDTF 


.MACRO 


CALL SEQUENCE: 


LPAGE ,PPAGE 


LPAGE- 
PPAGE- 


BLDTF 


^1851^72B15 


LOGICAL PAGE # 
PHYSICAL PAGE # | 


MACRO TO DETERMINE IF THE CPU IS A 


MACRO TO BUILD A MAP TRANSLATION FUNCTION 


NOVA 


; MOVE 1 TO FRAME POINTER 


y —4 TO AC 

; MOVE FROM FRAME POINTER 
» SKIP IF NOVA 

} 


SKIP IF ECLIPSE 


;BUILD TRANSLATION FUNCTION 


| 
AA CORPORATION / 


.MACRO PAGMV _ 
BLKMV = 1B5,="2B5,=2020 


MACRO TO PERFORM A BLOCK MOVE 
CALL SEQUENCE: 


BLKMV SADDR,DADDR,WCNT 
SADDR= SOURCE ADDRESS 
DADDR= DESTINATION ADDRESS 
WCNT= # OF WORDS TO MOVE 


wo wo wo wo we we we we 69 wo wo wo OY 


.MACRO  BLKMV 


LDA hore ; GET WCNT 
LDA S wt ; GET SRC ADDR 
LDA S, 2 ; GET DST ADDR 
IFNOVA Ø ; IF NOVA 
JMP BN$ ; GO EXECUTE NOVA VERSION 
BLM ; ECLIPSE VERSION, DO IT 
JMP BR$ 
BN$- š ; NOVA VERSION 
NEG ΚΕ ; SET LOOP COUNT 
BL$- ç 
LDA 9,0,2 ; GET WORD 
STA 9,0,5 ; PUT WORD 
INC 2,2 ; INC SRC ADDR 
INC $59 ; INC DST ADDR 
INC 1,1,892R ; INC COUNT 
JMP BL$ ; MOVE WHOLE BLOCK 
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3 
; MACRO TO PERFORM A PAGE MOVE | 
J 
; CALL SEQUENCE: 
, 
j PAGMY — SPACE,DPAGE 
; SPAGE- SOURCE LOGICAL PAGE # 
; DPAGE- DESTINATION LOGICAL PAGE # 
, 


` Í 
iN 


21 ; MULTI-FILE TAPE DIAGNOSTIC SAVE PROGRAM 
02 
.TITL DSAVE e 
04 .ENT DSAVE,DSMAP 
25 .EXTD WINDOW,LDMAP,ENBMAP 
σ6 0090001 .NOMAC 1 | € 
97 .NREL 
98 
99 002000 DMIN= 185 ; MINIMUM ADDR. OF DUMP @ 
10 @75?77 DMAX- 73777+1B5 ; MAXIMUM ADDR, OF DUMP 
11 076000 SCODE= 37B5 ; ADDRESS IN PAGE 37 TO MOVE STOP COD: 
15 0003577 DTSZ= 377 ; BLOCK DATA SIZE è 
13 | 
14 0209020 000527 DSAVE: JMP .TSAV 
15 2090901'02€2€0-DSMAP: LDA 9,-2 ; SELECT PROGRAM MAP “A” e 
16 00002 039427 LDA 2,PREDTT ; GET PRE-DTOS TRANSLATION TABLE 
17 000035'0040025 JSR LDMAP ; LOAD THE MAP 
18 00004102400 SUB ο. ; SELECT PROGRAM MAP ‘A’ e 
19 29090905'/0949091$ JSR ENBMAP ; ENABLE THE MAP | | 
20 20906 7002401 JMP @.+1 Ξ 
21 0€007'/000010* +t ë- 
22 E 
23 009010/102490 SUB 9,0 ; COPY DSAVE INTO MAPPED MEMORY | £ 
24 00011'2024001- LDA 1,240 @: 
25 00012/152520 SUBZE 222 ; 1 PAGE TRANSFER T 
26 000137 0040035 JSR WINDOW š 
27 ë 
28 00014“ 020000- LDA Q,22 ; SELECT PROGRAM MAP “A” | 5 
29 00015“”039417 LDA 2,PSTDTT ; GET POST-DTOS TRANSLATION TABLE | 
50 Z016 0646025 JSR LDMAP : LOAD THE MAP FOR LATER | é 
31 | 
Œ 32 90017 102400 SUB 0,0 ; SELECT DATA CHANNEL MAP “A | 
| 33 0€020'030414 LDA 2,PSTDTT ; LOAD IT ALSO | Φ 
34 00021” 004002 JSR LDMAP | 
35 0909022'/063077 HALT | 
36 | 9 
ση 1 ΣΕΛ ΗΛ 339 30 33 33 
38 ; | 
59 ; AFTER LOADING DIAGNOSTIC VIA 2105, RE-ENABLE THE MAP FOR 1/0. € 
49 ; ENABLE BOTH PROGRAM MAP ^A^ AND THE DATA CHANNEL MAP. 
41 ; 
42 ; NOVA VERSION: @ 
43 j SET (AC?) = 140000 | 
44 ; SET (DMAX-1B5) = STARTING ADDRESS | 
45 ; EXECTUTE THE FOLLOWING 3 INSTRUCTIONS | @ 
46 ; | | 
47 00023'061092 DOA Q ,MMU | 
48 00024'002401 JMP 8.41 e 
49 00025'0900000* DSAVE 
50 : 
51 ; ECLIPSE VERSION: | e 
52 ; SET (AC2) = 
53 5 SET (DMAX-1B5) = STARTING ADDRESS 
54 ; EXECUTE THE FOLLOWING 3 INSTRUCTIONS e 
55 ; | 
56 22026'061003 DOA Ø, EMAP 
57 0(0927'092401 JMP 8.1 το 
58 00030@ 009900” DSAVE 
59 . EJEC | 2 


Ala CORPORATION / @ 


DSE —— M  , e 


21 000991 .NOMAC 1 
02 000351'000033'/PREDTT: .«2 
o3 00032 000001 1 e 
24 BLDTF 00,00 
5 
06 00034 000036 PSTDTT; .+2 è 
07 00035 000040 Ag 
28 BLDTF 00,40 
29 BLDTF 01,09 9 
12 BLDTF 22,01 
11 BLDTF 22,02 š 
12 BLDTF 04,93 @ 
13 :  BLDTF 95,94 
14 BLDTF 06,95 
15 BLDTF 27,96 e 
16 BLDTF 19,07 
17 BLDTF 11,10 | 
18 BLDTF 12,11 Φ 
19 BLDTF 13,12 | à 
20 BLDTF 14,12 κ. 
21 BLDTF 15.14 το 
22 BLDTF 16,15 Ë 
2Š BLDIF 47416 4 
24 BLDTF 20,17 το 
25 BLDTF 2120 i. m 
26 BLDTF 22,21 : 
27 BLDTF 253,22 e 
| ‘gg BLDTF 24,23 
29 BLDTF 25,24 | | 
3g BLDTF 26,25 το 
51 BLDTF 27,26 
32 BLDTF 32,27 | : 
33 BLDTF 31,30 || € 
24 BLDTF 32,31 | 
35 BLDTF 33,32 w 
36 BLDTF 34,33 το 
37 BLDTF 35,34 | 
38 BLDTF 36,35 au 
59 BLDTF 37,37 e 
40 | 
41 | : 
42 ; CODE TO RETURN CONTROL TO DTOS EE 
45 ; 
44 DTOS: BLKMV STOP-1,.STOP,=3 ; MOVE STOP CODE INTO PAGE 37 | 
45 90121'992401 JMP @.STOP Φ 
46 202122'076000 .STOP: SCODE : DESTINATION ADDRESS OF STOP CODE 
47 ; > 
48 > STOP CODE TO BE MOVED INTO PAGE 37 |, 9 
49 ; 
50 00123'/000124^ 2 ; SOURCE ADDRESS OF STOP CODE | | 
51 90124'062077 STOP: HALT : PRESS ‘RESET’ AND ‘CONTINUE’, ο 
52 290125'902401 JMP @.+1 ; RETURN TO DTOS 
53 20126277777 77777 
54 .EJEC | € 
Φ Φ 
Φ 
Ala CORPORATION / | Φ 
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20127060222 .TSAV: 
20130 020520 
σο151΄061122 
00152'024003— 
@0133 060422 
@@134°197414 

09135° 0008776 


900136'0045"790 TBO: 
30137 “000417 
00140004540 
02141'029775 
00142“ 000774 
901435^111905 
22144'2907'72 
60145΄004555 
@0146 080406 
90147920767 
66150΄1456000 
σ00151΄155120 
00152'1335120 
001535/145001 
9001541410900 ΤΕΙ: 
00155'040477 
02156'224425 
00157'004537 
20160'020425 
20161'004451 SRLP: 
00162'004424 
00165'0007"76 
02164'014470 
001657020774 


02166'020004— 
00167'004454 NEXT: 
001700900554 
09171°924005- 
€0172'123000 
90173024006- 
30174106432 
00175'0900772 


€0176'004469 
20177'000545 
20220'004456 
00201'000543 
202202'920090674 


€6205'0905015 CRLF: 
00204'2000091 ADR: 
02205'000030 FWSPC: 


NIOC MTA 
LDA @ ,RWCMD 
DOAS Q,MTA 
LDA ,71B2 
DIA Q,MTA 
ANDA €,1,S2R 
JMP .-2 

JSR MSG 
MSG3 

JSR READ 
IMP TBO 

JMP TBO 

MOV €,2,SNR 
JMP TBO 

JSR READ 
JMP TB1 

JMP TRO 

MOV 521 
ADDZL 5.6 
EDDZL 1,2 

ADD 2,0,SKP 
MOV 2,0 

STA Q,CNT 
LDA 1,CRLF 
JSR TY PE 
LDA Q,FWSPC 
JSR SPRCD 
JSR TSEOF 
JMP SRLP 
DSZ CNT 

JMP SRLP 
LDA ð, =DMIN 
JSR WBLK 
JMP EROR 
LDA 1,=DTSZ 
ADD M 

LDA 1,=DMAX 
SUBZ# — 2,1,S2C 
JMP NEXT 
JSR WEOF 
JMP EROR 
JSR WEOF 
JMP EROR 
JMP DTOS 
12*400415 

. BLK 1 

30 

. EJEC 


CLEAR THE TAPE 
REWIND MTA 


REWINDING BIT 
GET STATUS 


WAIT FOR RESET OF REWINDING 


FILE #? 


;MUST NOT BE CR 
; INVALID DIGIT 


7 


MUST BE NONZERO! 


; ANOTHER DIGIT 
; CR 
;INVAL DIGIT 


; 


woo 59 WO we wo Ve we Wo wo 


ου wo MO we WO We wo ο 


“eo 


BUMP PREV DIGIT POWER OF 12 


PUT THEM TOGETHER 
SAVE COUNT 


CARRIAGE RETURN - LINE FEED 


PUT IT OUT 

FORWARD SPACE COMMAND 
1 RECORD 

EOF? 

NO 

ARE WE THERE? 

NO 


GET MINIMUM DUMP ADDR. 
WRITE Α BLOCK 

ERROR RETURN 

CET BLOCK SIZE 

UPDATE DUMP FROM ADDR. 
GET MAXIMUM DUMP ADDR. 
TEST IF DONE 

NOPE 


YES, WRITE 2 EOF’S 


RETURN TO DTOS 


5 | a CORPORATION / 


e ο 


- m i 


v65r8-0L JNI/SANXCT 


e 


@@2@6 024447 
@0@207”147415 
g0210 009534 
g@g0211 @2Q1401 


@0212 “061022 
€0215'152000 
00214073122 
20215^9063622 
@2216° 208777 
00219΄070422 
020220'151112 


| @@221 “001400 


00222'2001401 


00225'024423 
00224'0350423 
00225'0735022 
00226'062022 
00227 “939423 
022350 071122 
€0231'€63622 
00232 7000777 
29233 070422 
20254^151113 
99235°@01401 
90236 “7125404 
00237 7152081 
20240 75022 
90241'030410 
02242'071122 
20243'063622 
902440007777 
00245° 620757 


20246 °177766 
090247'177491 
2025009090010 
€0251^0000409 
090252'00900590 
00255'000060 
£0254'090001 
00255'002400 


TSEOF: 


SPRCD: 


; WRITE A BLOCK 
3 


INPUT: 


WBLK: 
AGAIN: 


RETRY: 
MBKSZ: 
RWCMD: 
BKSPC: 
WRCMD: 
WREOF: 
CNT: 

EOF: 


LDA 
AND# 
JMP 
JMP 


DOA 
ADC 
DOCS 
SKPDN 
JMP 
DIA 
MOVL# 
JMP 
JMP 


LDA 
LDA 
DOC 
DOB 
LDA 
DOAS 
SKPDN 
JMP 
DIA 
MOVL# 
JMP 
INC 
ADC 
DOC 
LDA 
DOAS 
SKPDN 
JMP 
JMP 


-10. 
-DTSZ 
19 

40 

50 

60 

e BLK 
187 

. EJ EC 


ROUTINE. 


CORE ADDRESS IN 


1,RETRY 
2,MBKSZ 
2,MTA 
Q,MTA 
2,WRCMD 
2,MTA 


; EOF BIT 
; IF NOT EOF, ERROR 
LOAD THE COMMAND REGISTER 


πα 
1 RECORD 


woe Wo we 


READ STATUS 
ERROR? 
ERROR 


woo 99 wo 


AC@ 


RETRY COUNT 
WORD COUNT 
SEND IT 

CORE ADDRESS 
WRITE COMMAND 
KICK CONTROL 
WAIT FOR DONE 


woo ο we wo -509 we VO 


GET STATUS 

WELL? 

SUCCESS 

ERROR, HOW MANY 

RECORD COUNT FOR BACKSPACE 


seo Oo WO «og WO 


BACK SPACE COMMAND 
KICK 


"eo πο 


TRY AGAIN 


νο 


REWIND COMMAND 
BACKSPACE COMMAND 
WRITE COMMAND 
WRITE EOF COMMAND 


see oo saq wo 


A | A CORPORATION / 
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JU SAN 


e ο 
ην Ε Ην” 


P6or8-0 


Φ 


22256'02077"7 
00257024767 
02260'0307"3 
09261°971122 
@@262° 963622 
00263 099777 
090264'070422 
09265'151115 
00266'09014901 
09267'1435414 
0270 001401 
00271'125495 
00272'0901400 
90273 930756 
22274'071122 
Q0275' 063622 
22276'000777 
20277^000761 


903020635619 
20301^'0007'77 
€0302'06461€ 
@0303 ° 044440 
D304’ 020433 
20305123440 
90396 “924432 
g0307 122415 
00310000407 
00311'175490 
20312 024427 
02313 7106452 
203147175400 
@0@315 @00402 


99316°125921 
99317 “924424 
20320 063511 
90321 °020777 
00322'065111 
@0323°125362 
9B 324° 009774 
0325001400 


00526'9054414 
02527^010415 
€0330'0351400 
090351'025009 
22332^'1250905 
€0335'00240907 
22554'004762 
09335^'1514900 
@0336 000773 


; WRITE EOF ROUTINE. 


WEOF: 
WEAGN: 


READ: 


; TYPE 


TYPE: 
TYPEC: 
TYPE1: 


MSG: 


MMSG: 


LDA 
LDA 
LDA 
DOAS 
SKPDN 
JMP 
DIA 
MOVL# 
JMP 
AND# 
JMP 
INC 
JMP 
LDA 
DOAS 
SKPDN 
JMP 
JMP 


SKPDN 
JMP 
DIAC 
STA 
LDA 
ANDO 
LDA 
SUB# 
JMP 
INC 
LDA 
SUBZ# 
INC 
JMP 


TWO CHARACTERS ROUTINE 


MOVZ 
LDA 
SKPBZ 
JMP 
DOAS 
MOVCS 
JMP 
JMP 


STA 
ISZ 
LDA 
LDA 
MOV 
JMP 
JSR 
INC 
JMP 
.EJEC 


Ø, EOF 
1, RETRY 
2,WREOF 
2,MTA 
MTA 

ο-1 
2,MTA 
2,2,SNC 
1,3 


i a ort 
1, CHAR 
TTO 

1 
1,TTO 
1525820 
TY PEL 
0,3 


3, RETN 
RETN 
2,0,3 
1,0,2 
1,1,SNR 
GRETN 
TYPE 
2,2 
MMSG 


“oe Wo see OO WO 


"60 we wo Wo WO we WO WO we Ve 


° 
3 


EOF BIT 

RETRY COUNT 

WRITE FOF COMMAND 
KICK CONTROL 

WAIT FOR DONE 


GET STATUS 

WELL ? 

SUCCESS 

IF EOF 

THEN SUCCESS 
ERROR, HOW MANY ? 
TOO MANY 

BACK SPACE COMMAND 
KICK 

WAIT 


TRY AGAIN 
WAIT FOR KEY 


MASK TO ASCII NUMERAL 


;SET CARRY TO TYPE ONE CHAR 


; CARRIAGE RETURN? 
;YES, FIRST RETURN 
SECOND OR THIRD RETURN 


VALID NUMBER? 
;YES, GOOD RETURN 


᾽ 


`° 


Ao Me Sao oo Vo wo 


o o wo 


ECHO & RETURN 


BIAS CARRY 
TTY IDLE? 
NO 


YES, KICK IT 
TWO CHARACTERS? 
NO 

YES, RETURN 


BUMP PAST PARAMETER 
TEXT ADDRESS 
TWO BYTES 


RETURN 


l 
ΗΒ CORPORATION , 


e 


00337'02090117 C117: 117 ; ASCII NUMBER MASK 
€0340'0900915 CR: 15 ; ASCII CARR. RET. 
@3 00541” QQQQ@Q11 NINE: ο, 
04 00342'000000 RETN: ο 
65 90293435'0000909 CHAR: Ø 
26 
07 00544'054640 EROR: STA 3,ADR ; SAVE ADDRESS 
98 00345 °959431 STA 2,STAT ; SAVE STATUS 
GQ 00346'094760 JSR MSG ; PRINT MESSAGE 
10 00347000377” MSG1 
11 20903590^020426 LDA Q,STAT 
12 €0351'0044094 JSR BINOCT ; PRINT STATUS 
13 00352'029632 LDA ὦ, ADR 
14 20555΄004402 JSR BINOCT ; PRINT ADDRESS 
15 €0354'0€0400 JMP : ; ERROR JUMP 
16 
17 
18 92355°@54765 BINOCT: STA 3,RETN 
19 29356'152621 SUBZR  2,2,SKP 
20 00357'142401 BO1: SUB 2,0,SKP 
21 @036@ ° 024414 B02: LDA 1.057 
22 20361'125499 INC 1t ; COMPUT OUTPUT DIGIT 
23 00362/142533 SUBZL# 2,@,SNC ; WILL IT GO? 
24 @0@363 200774 JMP BO1 ; YES 
25 00364'004732 JSR TYPE ; PRINT DIGIT 
26 09365'151220 MOVZR/T182.0 
27 900366'151229 MOVZR 2,2 
28 98367151224 MOVZR 2,2,SZR 
29 00370'000770 JMP BO2 
50 @0271 024404 LDA 1,SPC ; PRINT SPACES 
31 00372 0094724 JSR TYPE 
32 00273'00274" JMP @RETN ; TRAT S: IT 
33 
34 02374°220057 C57: 57 1 
35 22375'/02900490 SPC: *4004 
36 90276'00€001 STAT: .BLK 1 
37 
38 
39 
4g ; MESSAGES MUST TERMINATE WITH A NULL WORD! 
41 
42 
43 22377'909059015 MSG1: Txt *<€15><12>FATAL ERROR, TAPE STATUS = <@>* 
44 900417'0052915 MSG3: TXT *€15»«412»TO MT90:«2»* 
45 eoocoo .NOLOC Ø 
46 
47 000002 BOO 2 
48 60002 0600€0901^ DSMAP 
49 
50 . END DSMAP 
51 0609000—-0006€92 
52 002040 
53 000003 
54 020990 
55 202500 
56 000377 
57 O75777 


**02000 TOTAL ERRORS, 022000 PASS 1 ERRORS 
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ADR 000204” 5/592 8/07 8/13 
AGAIN 200224* 6/20 6/37 ° 
BINOC @@@355’ 8/12 8/14 8/18 
BKSPC 900251” 6/33 6/42 7/16 
ΒΙΟΥ 000113’ 4/45 e 
BLDTF 2090074 MC 1/54 4/04 4/08 4/09 4/1€ 4/11 4/12 | 
4/13 4/14 4/15 4/16 4/17 4/18 4/19 
4/29 4/21 4/22 4/23 4/24. 4/25 4/26 € 
4/277 4/28 4/29 4/30 4/31 4/32 4/55 
4/34 4/35 4/36 4/37 4/38 4/39 | 
BLKMV 000101 MC 2/26 4/44 το 
BLM 155710 1/13 4/45 P. i 
ΒΝΟΟΥ 000112” 4/45 8 
BO1 000357” 8/22 8/24 το 
po2 920360’ 8/21 8/29 
BRO?Y 000121” 4/45 | 
C117 980337" 7/26 8/01 || € 
C57 000374’ 8/21 8/34 | | ὦ 
CHAR 000343” 7/25 7/40 8/95 | = 
CNT 2092254” 5/24 5/31 6/45 e 
CR e909340^ 7/28 8/02 | E 
CRLF 300203” 5/25 5/49 r 
DMAX 375777 3/10 5/59 το 
DMIN 0028200 3/069 5/34 a x 
DSAVE 229220" EN 5/04 3/14 3/49 3/58 | E 
| DSMAP 202001” EN 3/24 3/15 8/48 8/50 υ 
DTOS 220976" 4/44 5/47 | κὶ 
DTSZ 2909377 3/12 5/37 6/49 | 
EMAP 290003 1/11 3/56 | ev 
@ Exava 009001$ XD 3/05 3/19 | 
FOF 2900255” 6/01 6/46 7/03 | 
EROR 2020203447 5/36 5/44 5/46 6/23 8/27 | 9 
FWSPC @@2295’ 5/27 5/51 EN 
| IFNOV 2900250 MC 1/55 4/45 | 
LDMAP 2020025 XD 3/25 3/17 5/20 3/34 | 9 
LMP 113419 1/12 | 
MBKSZ 8202477 6/22 6/40 | 
MMSG 290331’ 7/51 7/56 | υ 
MMU 0008202 1/29 3/47 | 
MMU1 282923 1/12 
MSG . 000326” 5/29 7/48 8/09 | 9 
MSG1 880377’ 8/12 8/45 | 
MSGI 09417’ 5/19 8/44 
NEXT 290167^ 5/35 5/41 | € 
NINE 888341” 7/32 8/03 
PAGMV 222276 MC 2/11 
PREDT 209231’ 3/16 4/02 || € 
PSTDT 902034’ 3/29 3/33 4/06 | 
READ 0003007 5/11 5/16 7? /22 m 
RETN 000542” 7/48 7/49 7/53 8/04 8/18 8/32 | e 
RETRY 0260246” 6/19 6/39 7/04 | 
RWCMD 0090250” 5/92 6/41 
SCODE 276990 5731 4/46 το 
SPC 000375” 8/32 8/35 | 
SPRCD 0200212” 5/28 6/66 | 
SRLP 900161’ 5/28 5/50 5/32 | 9 
STAT 220376’ 8/08 8/11 8/36 | 
STOP 0600124” 4/45 4/51 ww 
TBO 990136’ 5/29 5/12 5/15 5/15 5/18 | e 


Bn | 
CORPORATION / | 
CL commonancs. Ve. 


TB1 209154^ 


TSEOF 
TTADR 
TTFUN 
TTLEN 
TYPE 
TYPE1 
TYPEC 
WBLK 
WEAGN 
WEOF 
WINDO 
WRCMD 
WREOF 
.STOP 
.TSAV 


2g00206* 
177776 
90900000 
UAA ATA 
D03167 
J320” 
300317” 
200225* 
3002607 
3002567 
20090035 XD 
200252^ 
D00253” 
000122” 
000127* 


5/17 
5/29 
1/21 
1/19 
1/20 
5/26 
7/41 
7/38 
5/35 
7/85 
5/43 
3/25 
6/23 
6/44 
4/45 
3/14 


5/23 
6/91 


1/20 
17/21 
7/39 
7/45 
7/35 
6/19 
7/20 
5/45 
3/26 
6/43 
7/25 
4/46 
5/01 


7/54 
7/42 


"7/035 


8/25 


8/51 


AJA CORPORATION / 


6 6) e @ & @ e 9 . é x Ψθυς σοι Jui SLN3OUn306 VIVO: 


@@@1 WMDRV 


69 0009902 
16 00029035 
11 02900923 
12 116410 
13 155710 
14 0600901 
15 Z60201 


19 2002000 
20 177777 
21 ποστ 


MACRO REV 06.50 10:01:18 11/14/81 ἀθλία Ἡ 
33533333333 3333333333333 333333333 3333333333333 33333 333333) 1. 
, 4 
; MACROS ASSOCIATED WITH WINDOW MAP DRIVER 
3 . 

; FILENAME: WMDRVMAC.SR d 
) 
GEHE EEG EE UT 
MMU- 2 ; DEVICE CODES FOR NOVA 
MMUl= 5 | 
EMAP- 3 ; DEVICE CODE FOR ECLIPSE 9 
LMP- 113410 ; LOAD MAP INSTRUCTION FOR ECLIPSE 
BLM- 133719 ; BLOCK MOVE INSTRUCTION FOR ECLIPSE 
.DIAC MTFP= 60201 ; NOVA 3 MOVE TO FP INSTRUCTIO 
“DIAG  MFFP- 660201 j NOVA 3 MOVE FROM FP INSTRUCTION 
M 
; PARAMETERS FOR TRANSLATION TABLE c 
H x 
TTFUN- 2 ; START OF TRANSLATION FUNCTIONS | Ξ 
TTLEN- TTFUN-1 ; LENGTH OF TRANSLATION TABLE το 
TTADR- TTLEN-1 ; ADDRESS OF TRANSLATION TABLE Ξ 
1 1: 
= 
; MACRO TO DETERMINE IF THE CPU IS A NOVA e 
, | n 
; CALL SEQUENCE: | 
, | 
IFNOVA AC ο 
; <NOVA RETURN» Nn 
; <ECLIPSE RETURN» | ee 
, | , 
; AC IS DESTROYED | 
; | 
.MACRO IFNOVA | | e 
SUBZL 21852 ; MOVE 1 TO FRAME POINTER 
MTFP 14. 
NEG 141 ; -1 TO AC | | 9 
MFFP 1 ; MOVE FROM FRAME POINTER 
INC 17.2 SNR ; SKIP IF NOVA 
JMP .+2 ; SKIP IF ECLIPSE l ο. 
ΙΕ 3333133333133 3353333533555; 


Noo wo we wo we wo 6ου Yo wo ~. 59 


we wo JV 


333 
59 .EJEC ! | | 
| Ala CORPORATION / . O x 


CALL SEQUENCE: 


MACRO TO BUILD A MAP TRANSLATION FUNCTION | Ὁ 
BLDTF LPAGE,PPAGE & 
LPAGE- LOGICAL PAGE # | 
PPACE- PHYSICAL PAGE ἡ | 2 
.MACRO  BLDTF ;BUILD TRANSLATION FUNCTION 
185172315 | ^ 


| 
eo 999 0 09 6009000000 oo 000 000 0099900090 0900909989 696 999 99959 6569 ο 
ΑΙ ο DC ¿j 


| 


“ee woe WO WO we WO wo wo we ^40 


0 *69 Sao wo Ὢθ wo wo wo wo we WO wo oe 


MACRO TO PERFORM A PAGE MOVE 
CALL SEQUENCE: 


PAGMV 


eMACRO 
BLKMV 


MACRO TO PERFORM 
CALL SEQUENCE: 


BLKMV 


eMACRO 
LDA 
LDA 
LDA 
IFNOVA 
JMP 


SPAGE,DPAGE 
SPAGE- 
DPAGE- 


PAGMV 


="1B5 ,=“2B5 ,=2000 


SADDR,DADDR,WCNT 

SOURCE ADDRESS 
DESTINATION ADDRESS 
# OF WORDS TO MOVE 


SADDR= 
DADDR= 
WCNT- 


BLKMV 
1,75 
Bat 
M 


A BLOCK MOVE 


wo ο ο wo wo we wo ο 


"69 woo woo wo WO wo 


@ o e o 06 0 9 o° 05 0 0 0 90 00 00 ee 00900 ° 9 0 @ 9 69 6499 99999 9 
9 3 9 9) y) yy 333333} 


9999999 


SOURCE LOGICAL PAGE # 
DESTINATION LOGICAL PAGE # 


GET WCNT 


GET SRC 
GET DST 
IF NOVA 


ADDR 
ADDR 


9 oe e o° o o o ee ee 9 9 
9999999999999 


"oo 
`° 
νο 
`° 
-- 
"o 
"o0 
~ 
`° 
` 
` 
νο 
` 
° 
`° 
`° 
` 
`° 
LII 
`° 
`° 
`° 
`° 
`° 
.οο 
`° 
` 
`° 
`° 
~o 
νο 
9 
` 
`° 
`° 
° 
0 
`° 
`° 
`° 
° 
`° 
κο 
`° 
"99 
`° 
` 
`° 
`° 
` 
“ee 
νο 
`° 
`° 
`. 
` 
` 
κο 
νο 
`° 
` 


GO EXECUTE NOVA VERSION 
ECLIPSE VERSION, DO IT 


NOVA VERSION 
SET LOOP COUNT 


GET WORD 

PUT WORD 

INC SRC ADDR 
INC DST ADDR 
INC COUNT 
MOVE WHOLE BLOCK 


“we 
`° 
ο 
κο 
9 
`° 


090209001 


° 
, 
° 
, 
° 
3 
o 
, 
° 
3 
° 
͵ 
ο 
, 
° 
3 
° 
4 
9 
M 
° 
3 
o 
3 
° 
H 
9 


¿TITL 
.ENT 
e NOMAC 


ROUTINE TO TRANSFER A MEMORY 


CALL SEQUENCE: 


AC@= 
ΑΟΙΞ 
AC2- 
JSR 


ROUTINE ASSUMES PROGRAM ΜΑΡ ΄Α΄ HAS ALREADY BEEN ENABLED 


WMDRV 


WINDOW,LDMAP,ENBMAP 


1 


9 9 0 0 09 9699 eee 00 000 9 696099 9 999 9 0 
A E E 1. 


PHYSICAL PAGE # OF SOURCE WINDOW 
PHYSICAL PAGE # OF DESTINATION WINDOW 
LENGTH OF WINDOW IN PAGES 


WINDOW 


; WINDOW MAP DRIVER 


9909 9 
393333 


WINDOW 


` 
` 
` 
` 
` 
` 
` 
` 
` 
-ο- 
` 
-ο- 
νο 
` 
` 
` 
` 
` 
` 
` 
` 
` 
` 
~ 
` 
` 
` 
` 
Cw 
` 
`. 
`<. 


© 
~ 
νο 


TRANSLATION FUNTIONS FOR LOGICAL PAGES 36 AND 37 ARE OVER-WRITTE@ 


? 
00020—054054-WINDOW: STA 


@0@201-150400 


09C002—-040055-WLOOP: 


00025-2044956- 
20024—05005'— 


22025-052162- 
00226-054062- 
0€0007—15"74€0 
000120—-1170920 
22011-2054062- 
00212-90354065- 
02015-15749 
009014—-137009 
2061 5-Θ54065- 


020016-020163- 
g091"7—-050969— 
00020—2004064— 


20044-020055- 
20245-024056- 
20046-0359005"7- 


047-101400 
220050-1254900 
90051-151404 
00052-0200002— 
30053-002054- 


00954—0000901 WRET: 
02055-000001 SPAGE: 
00056-0€0001 DPAGE: 
00057—000001 NPAGE: 


€0060-9000062-T1T1: 


22061-0909292 


FUNS6: 
FUNS"T: 


NEG 
STA 
STA 
STA 


LDA 
LDA 
AND 
ADD 
STA 
LDA 
AND 
ADD 
STA 


LDA 
LDA 
JSR 
PAGMV 
LDA 
LDA 
LDA 


INC 
INC 
INC 
JMP 
JMP 


e BLK 
.BLK 
e BLK 
¿BLK 


ο το 
2 
BLDTF 


BLDTF 
.EJEC 


3,WRET 
9 
Q,SPAGE 
1,DPAGE 
2,NPAGE 


2,-1776900 


É ,FUN36 


"90 «9 seo Oo wo ws YO 


Νο we *69 wo ~o we WO WO woe 


woo "90 we 90 


SAVE RETURN ADDRESS š 
SET LOOP COUNT e. 
SAVE SOURCE WINDOW 5 
SAVE DESTINATION WINDOW E 
SAVE LENGTH OF WINDOW το 
GET MASK FOR PHYSICAL PAGE | Š 
GET TRANSLATION FUNCTION FOR L0GG:: 
MASK AND PACK SOURCE WINDOW | | | 
το 
GET TRANSLATION FUNCTION FOR| LOGICA 
MASK AND PACK DESINATION WINDOW 
SELECT USER MAP 'A^ | € 
GET TRANSLATION TABLE | 
LOAD 2 MAP SLOTS | 
MOVE PAGE36 INTO PAGES? e 
RESTORE SOURCE WINDOW 
RESTORE DESTINATION WINDOW 
RESTROE LENGTH OF WINDOW & 
INC SOURCE WINDOW e 


INC DESTINATION WINDOV 
INC LOOP COUNT 

MOVE THE WHOLE WINDOW 
RETURN 


RETURN ADDRESS 
SOURCE WINDOW 
DESTINATION WINDOW 
LENGTH OF WINDOW 


ADDRESS OF TRANSLATION TABLE 


LENGTH OF TRANSLATION TABLE 


TRANSLATION FUNCTION FOR PAG 
TRANSLATION FUNCTION FOR PAG 


Ε1 
E2 


Guss 


a 
: 


m CORPORATION / 


3 
Q€€0064—LDMAP- 


0007 2—-0090106- 


g0? 3-126520 
0074-16120 
00075-100000 
39076-123400 
22077-18119 
20G109-121302 
00101—-2612905 
20122-122400 
001035-025357'7 
20104—-115410 
20125-00012"7- 


9 
, 
° 
, 
ο 
, 
9 
, 
° 
, 
° 
> 
° 
, 
9 
ο 
, 
ο 
, 
° 
, 
° 
, 
° 
, 
° 


33333333333333333 323 
ROUTINE TO PERFORM A L 
CALL SEQUENCE: 


200106—-LMNOVA- . 


201026-054150- 
00107—1152900 
00110-12652 
08111-12340 
20112-101500 
00115-10112 
20114—1752090 
00115-105260 
00116-0255"77 
00117-124409 


000120—-LMLOOP- 


00120-035000 
20121-117099 
0122-076902 
80123-151408 
00124-125494 
00125-000120- 
20126-034138- 


000127-LMRET- . 


3127-001400 


000130—-LMNRET- 


0201590-0220901 


"eo ο 


ACO- MAP SELECT 
- DATA CHANNEL MAP ΄Α΄ 
1- DATA CHANNEL MAP “B 
2- PROGRAM MAP ^A^ 
$- PROGRAM MAP ΄Β΄ 
AC2- ADDRESS OF MAP TRANSLATION TABLE 
JSR LDMAP 
IFNOVA 1 y IR NOVA; 
JMP LMNOVA ; GO EXECUTE NOVA VERSION 
SUBZL- "2,1 ; CREATE MASK OF 1 FOR DCH BIT 
MOVR 9,0 ; SET CARRY = USER BIT 
COM 0,€ ; DCH BIT = COM(BAR(DCB)) 
AND 1,0 ; MASK TO DCH BIT 
MOVL 0,0 ; RESTORE USER BIT 
MOVS £,0 ; PACK FOR MAP STATUS 
DOA Ø, EMAP ; LOAD MAP STATUS 
SUR 0,0 ; ACS MUST BE 0 
LDA 1, TTLEN,2 ; GET LENGTH OF MMT 
LMP ; LOAD MAP 
JMP LMRET 
; NOVA VERSION 
STA 3,LMNRET ; SAVE RETURN ADDRESS 
MOVR 0,3 ; UNPACK MAP SELECT 
SUBZL 1,1 
AND 1,0 
MOVS 0,0 ; RE-PACK MAP SELECT 
MOVZL 0,0 
MOVR 3,3 
ADDCR 2,9 
LDA 1,TTLEN,2 ; GET LENGTH OF MMT 
NEG 151 ; SET LOOP COUNT 
LDA S, TTFUN,2 ; GET TRANSLATION FUNCTION 
ADD 0,3 ; ADD ADDEND 
DOB 3, MMU ; LOAD MAP 
INC NS ; INC. TO NEXT 
INC 1,1,S2R j ING. COUNT 
JMP LMLOOP ; DO WHOLE TRANSLATION TABLE 
LDA $,LMNRET ; RESTORE RETURN ADDRESS 
JMP 0,3 ; RETURN 
. BLK 1 ; RETURN ADDRESS 
33333333333333333333 ΕΕ 2333933399 3333 303 30333333 3D 
.EJEC 


> o ο 
7999999999 


PII 
° 
`° 


°° ° eo o° o Ó 
335) 99999 


OAD MAP FUNCTION 


Le ey 


| 


BIB CORPORATION / 
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ΙΑ AA SAARA 333 


° ο ο ο ο 
335) 
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ROUTINE TO ENABLE MAP TRANSLATION 


` 

`° 
`° 
`° 
~o 
`° 
`° 
° 
`° 
`° 
κου 
ο 
`° 
`. 
`° 
`° 
`° 
`° 
`° 
`° 
`° 
`° 
"o 
`° 
`° 
`° 
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`° 
`° 
`° 
10 
PII 
` 

~o 
`° 
`° 
` 

`° 
` 

Neo 
` 

`° 
`° 
` 

`° 
`° 
`° 
`° 
`° 
PII 
` 

`° 
`° 
` ° 
`° 
`° 
~o 
~o 
`° 
`° 
`° 
` 


5 
22 ; 
65 ; 
24 ; 
05 ; CALL SEQUENCE: 
6 ; 
9" ; ACQ= 
68 i 
@9 ; 
10 ; 
11 } 
18 3 JSR 
15 } 
14 @90131-ENBMAP= , 
TS IFNOVA 
16 29157-0909151- JMP 
17 
18 @0140-126520 SUBZL 
19 20141-05216"7- LDA 
20 02142-101202 MOVR 
21 90143-14700 ADD 
22 20144-050165- LDA 
25 00145-1012902 MOVR 
24 090146-14"7000 ADD 
25 00147-065083 DOA 
26 001508-980161- JMP 
27 909151-EMNOVA- . 
28 00151-126622 SUBZR 
29 00152-152520 SUBZL 
30 00153-10122 MOVR 
31 00154-1470292 ADD 
52 00155-839178- LDA 
55 00156-181202 MOVR 
54 30157-147000 ADD 
35 9168-065002 DOA 
36 900161-EMRET- . 
57 90161-09140 JMP 
58 
29 ; 
49 j 
41 
42 .END 
45 00162-1776900 
44 000002 
45 900200 
46 074000 
47 076000 
48 2920094 
49 0429209 


MAP SELECT 

@= PROGRAM 
1= PROGRAM 
2= PROGRAM 
o= PROGRAM 
ENBMAP 


1 
EMNOVA 


e P - 
ζω bo cn 
Ne N 

ca 


= N S iN ANE 
ca 


ο MEE UL Άι. UM ο NL; 


= = S » ο οι» 


= 
= 


"*00200 TOTAL ERRORS, 92000 PASS 1 ERRORS 


MAP 
MAP 
MAP 
MAP 


Ν δν OM 


“A 
΄Β 
“A 


; IF NOVA 
; GO EXECUTE NOVA VERSION 


SET USER ENABLE BIT 
SET USER 'B^ 

IF USER “B 

THEN SET IN ADDEND 
SET DCH MAP ENABLE 
IF DCH 

THEN SET IN ADDEND 
ENABLE MAP 


-ο0 0 wo “609 WO wo wo WO 


NOVA VERSION 

SET PROGRAM MAP ENABLE 
SET PROGRAM MAP SELECT 
IF PROGRAM MAP ΄Β΄ 
THEN SET BIT 

SET DCH MAP ENABLE 

IF DCH MAP 

THEN SET BIT 

ENABLE MAP 


ορ seo wo Wo ^00 seo WO wo we 


; RETURN 


AND DATA CHANNEL MAP 
“B° AND DATA CHANNEL MAP 


-ο- 


Θ @ í € =O e°... L 


` ° 


`° 


`° 


`° 


IFNOV 92902858 MC 1/35 3/49 4/16 5/15 
LDMAP 200064— EN 3/82 3/38 4/15 


' | 
26-WMDRV ml. 
?LOO2 C00036-— 2/40 | 
BLDTF 2020074 MC 1/54 3/57 3/58 © 
BLKMV 220101 MC 2/26 35/40 
BLM 133710 1/13 3/40 | 
Qoo? 220935- 3/49 e 
BROO2 0009044— 35/40 l 
DPAGE @@@256- 3/23 3/41 3/52 | 
EMAP 2200093 ΤΣ. BS 5/25 ο 
EMNOV 200151- 5/16 5/27 | 
EMRET 200161- 5/26 5/36 a 
ENBMA 6060131-- EN 3/02 5/14 e 
FUN36 2000062- 3/27 3/30 3/57 
FUN37 θθθῶ65-- 3/31 3/34 3/58 e 
ο 


LMLOO σ060120-- 4/41 4/477 
LMNOV 20σ106- 4/17 4/30 
LMNRE 290130- 4/51 4/48 4/51 | š 
LMP 113410 1/12 4/28 | = 
LMRET 000127- 4/29 4/49 e 
MMU 2000002 1/29 4/44 5/35 
MMU1 209003 1/10 a 
NPAGE 00957- 3/24 3/42 S 755 | 
PAGMV 29090076 MC 2/11 3/39 | 
SPAGE 009955- 3/22 3/40 3/51 

| mm 092969- 3/37 3/55 | 

| ° TTADR 177776 1724 | 

|  TTFUN 290000 1/19 1/20 4/42 
TTLEN 177777 1/20 1/21 4/27 4/39 | 
WINDO 29090020—- EN 35/02 5/20 
WLOOP σοσσσ2- 3/22 3/47 | 
WRET @09054- 3/22 3/48 3/58 | 


© © © © @ 909999 999 9.9. 


m | a CORPORATION / 


002099 
206061 
£0002 
002035 
00094 
COOS5 
20006 
@0227 
620012 


290011 
2909012 
020013 
209014 
90015 
009016 
02901" 
AAA 
00921 
00222 
C0023 
20024 
29225 
09026 
22027 
000350 
069051 
009052 
220053 
ϱ0054 
00055 
00256 
AARNA 
20249 
20941 
00042 
20046 
22044 
C2245 
00046 
90047 
02059 
90051 
00052 
00055 
00054 
00055 


0001 DBOOT 


898377 
οσον 


020000 


262677 
9029121 
116221 
116400 
055490 
651400 
172414 
2000093 
054121 


004222 
209513 
004174 
000011 
C€00€11 
111005 
0090011 
064134 
2090027 
0290911 
1453000 
155120 
1351290 
145001 
141220 
040172 
@24120 
904212 
020122 
00412" 
004125 
0000354 
014172 
0020354 
9020117 
92410 
204140 
2002056 
92411" 
1259009 
050121 
112425 
9009062 
132433 
145099 
124420 
9200435 


MACRO REV 26.50 
y MULTI-FILE TAPE BOOTSTRAP PROGRAM 


DTSZ- 
DMAX- 


DBOOT: 


S ZLUP : 


TBS: 


TBLs 


SRLP: 


FILCT: 


NEXT: 


.TITL 


OCC 
73777 


.LOC 


IORST 
LDA 
ADCZR 
SUB 
STA 
LDA 
SUB# 
JMP 
STA 


JSR 
MSGS 
JSR 
JMP 
JMP 
MOV 
JMP 
JSR 
JMP 
JMP 
MOV 
ADDZL 
ADDZL 
ADD 
MOV 
STA 
LDA 
JSR 
LDA 
JSR 
JSR 
JMP 
DSZ 
JMP 
LDA 
LDA 
JSR 
JMP 
LDA 
ADD 
LDA 
SUBZ 
JMP 
SUBZ# 
MOV 
NEG 
JMP 


TBO 
TBO 


ΤΕΙ 
T B2 


DBOOT 


Q 


Q,FWSPC 
SPRCD 
TSEOF 
SRLP 
CNT 
SRLP 


OOM 
1,2,SNC 
y 

1,1 
NEXT 


15:57:40 11/15/81 


; BLOCK DATA SIZE 
; MAXIMUM ADDRESS OF DUMP 


; WILL JMP HERE 


2K INCREMENT 

BHGGEST MEMORY 

DECREMENT BY 2 K 

STORE ADDRESS AT ADDRESS 
READ IT BACK 

SAME ? 

NO 
YES, 


wo OO OG we Wo Se WO we 


SAVE MEMORY SIZE 
FILE #? 


`° 


;MUST NOT BE CR 
;INVALID DIGIT 
; MUST BE NONZERO! 


ANOTHER DIGIT 
CR 
INVAL DIGIT 
BUMP PREV DIGIT POWER OF 10 


° 
? 
ο 
H 
9 
3 
o 
9 


; PUT THEM TOGETHER 


SAVE COUNT | 

CARRIAGE RETURN - LINE FEED 

PUT IT OUT 

FORWARD SPACE COMMAND 

1 RECORD 

EOF? 

NO 

ARE WE THERE? 

NO 

START BY READING LOGICAL BLOCK 
ZERO INTO PHYSICAL BLOCK ONE 

READ BLOCK 

EXAMINE ERROR 

BUMP CORE ADDRESS BY DATA SIZE 


Ao ^99 Wo wo ^60 69 wo WO 69 wo 659 WO we ος 


TEST FOR FINAL READ 
ALL BLOCKS READ? 
YES, OUT OF MEMORY 
PARTIAL BLOCK? 


“oe oe wo wo 


PIR... 


8: 


é 


é 


a 


„tooo Door — F — A  . 
@1 


THE FOLLOWING ROUTINE IS EXECUTED AFTER THE ENTIRE MEMORY HAS 
IT MERELY MOVES THE SYSTEM IMAGE 


; YES, MOVE SOME CODE TO HIGH 


; LENGTH OF CODE 


; DESTINATION ADDRESS 
j 


MOVE IT 


; NOT YET 


;FROM PAGE ONE 
;TO PAGE ZERO 


;MIGHT AS WELL 
; MOVE ALL OF MEMORY 
;WIND IT UP 


; DESTINATION ADDRESS 


; REWIND THE TAPE 


; GO TO USER 


> STARTING ADDRESS 


90056 004123 WHAT: JSR TSEOF 
0005" 000057 JMP Š 
@@Q6@ 664115 Ooms: LDA S, SRC 
020061 0290116 LDA ®,LGT 
900062 0350121 LDA 2,MEM 
2063 112400 SUB 0,2 
00064 021400 BOOM: LDA 0,0,5 
22065 041000 STA 9,0,2 
00066 151490 INC 2.2 
0006" 175400 INC $:5 
JOTO 614116 DSZ LGT 
0O71 0009064 JMP BOOM 
02072 930117 ZOOM: LDA DISTRT 
@@@?Š 10.400 SUB 9,0 
009074 0354121 LDA š ,MEM 
2075 145000 MOV Zot 
ϱ00ν6 166400 SUB Set 
2077 0901762 JMP LEND,3 

) 

; BEEN LOADED FROM MAG TAPE. 

; TO ITS PROPER LOCATION AND JUMPS IN. 
00100 115000 END: MOV 9,5 
0101 £21€00 SHUFFLE:LDA @,@,2 
00102 041400 STA 6,06, 2 
02105 1514060 INC Zee 
00104 175400 INC 3,5 
22105 125404 INC 1 oR 
00106 228773 JMP SHUFFLE-.,1 
$0107 020404 NRDOS: LDA @,RWCMD-.,1 
00110 061122 DOAS Ø, MTA 
20111 0504905 LDA 2,«DMAX-. ,1 
00112 2950920 JMPG 9.29 
00115 20009010 RWCMD: 10 
22114 @73777 .DMAX:  DMAX 
00115 2001900 SRC: END 
20116 0290916 LGT: .— END 

177762 LEND = END-LGT 

0011? C093"7"7 STRT: DTSZ 
00120 0205915 CRLF: 1234001 5 

MEM: 

ADR: 
00121 0249090 C2K: 4000 
02122 000050 FWSPC: 30 


[e | [5] CORPORATION 


à 


9 


| DBOOT 
| 21 


02 60123 824173 TSEOF: 


05 
04 
@5 
[ ΤΣ 
07 
98 
29 
10 
11 
12 


15 
14 


00124 
00125 
00126 


00127 
021350 
00151 
90152 
2013535 
02154 
001355 
02156 
2015" 


00140 
22141 
20142 
20145 
00144 
00145 
20146 
0014" 
00150 
06151 
00152 
20153 
00154 
90155 
09156 
0015" 
00160 
00161 
22162 
66165 
00164 
22165 
20166 


00167 
00176 
66171 
02172 
@0173 


147415 
000249 
@@1401 


961922 
152209 
073122 
963622 
0900132 
072422 
151112 
201409 
201451 


024167 
0501" 
075022 
062022 
152400 
9071122 
263622 
200146 
072422 
151113 
201401 
151599 
151215 
125405 
151501 
152001 
0014060 
0759022 
05011 
971122 
265622 
000164 
9000141 


SPRCD: 


LDA 
AND# 
JMP 
JMP 


DOA 
ADC 
DOCS 
SKPDN 
JMP 
DIA 
MOVL# 
JMP 
JMP 


; READ A BLOCK ROUTINE. 


; INPUT: 


RBLK: 
AGAIN: 


177766 RETRY: 


174661 MBKSZ: 


000042 BKSPC: 


2009001 


CNTs 


200400 EOF: 


LDA 
LDA 
DOC 
DOB 
SUB 
DOAS 
SKPDN 
JMP 
DIA 
MOVL# 
JMP 
MOVS 
MOVR# 
INC 
MOVS 
ADC 
JMP 
DOC 
LDA 
DOAS 
SKPDN 
JMP 
JMP 


9198. 
-DT$SZ 
40 
.BLK 
187 


CORE ADDRESS IN 


1,RETRY 
2 ,MBKSZ 
2,MTA 


MTA 


1 


`e woe we 


ACS 


"40 we wo 59 wo wo wo 


Sao Wo SO «ος WO WS we wo ^20 


"0 "9 w° 


νο 


EOF BIT 
IF NOT EOF, ERROR 


LOAD ΤΗΕ COMMAND REGISTER 
-—L 
1 RECORD 


ERROR? 
ERROR 


RETRY COUNT 
WORD COUNT 
SEND IT 

CORE ADDRESS 
READ COMMAND 
KICK CONTROL 
WAIT FOR DONE 


GET STATUS 

WELL? 

SUCCESS 

LOOK FOR EOF 

IF EOF DONT RETRY 

ERROR, HOW MANY 

SWAP THE STATUS BACK 
RECORD COUNT FOR BACKSPACE 
TOO MANY 


BACK SPACE COMMAND 
KICK 


TRY AGAIN 


BACKSPACE COMMAND 


ORPORATION 


Γ 


Φ 


e 


e 


@ 
* 
e 


* 


——te9904- DBOOT ~~m 


02 00174 63610 READ: 


@š 00175 
G4 00176 
@5 00177 
@2E 09299 
Q" 090201 
G8 00202 
@9 090295 
10 00204 
11 29205 
12 00226 
13 08207 
14 00212 
15 20211 


20 09212 
21 00215 
22 00214 
25 00215 
24 00216 
25 0021" 
| 26 00229 
| 27 00221 


31 00222 
32 002235 
33 22224 
34 00225 
65 00226 
36 0022" 
ον 00250 
58 00251 
39 29252 


41 00255 
42 002354 
45 00255 
44 00256 
45 002357 


090174 
064619 
044237 
0202353 
123440 
0242354 
122415 
000213 
175400 
0242355 
126432 
1754090 
290213 


125021 


@24257 TYPEC: 
065511 TYPE1: 


000214 
065111 
125362 
000214 
09014900 


054256 
0122356 
051400 
925000 
125905 
0022356 
004212 
151400 
0090225 


20117 
2000915 
9000011 
20009000 
00090900 


» TYPE TWO CHARACTERS ROUTINE 


TYPE: 


MSG: 


MMSG : 


C117: 
CR: 

NINE: 
RETN: 
CHAR: 


SKPDN 
JMP 
DIAC 
STA 
LDA 
ANDO 
LDA 
SUB# 
JMP 
INC 
LDA 
SUBZ# 
INC 
JMP 


MOVZ 
LDA 
SKPBZ 
JMP 
DOAS 
MOVCS 
JMP 
JMP 


STA 
ISZ 
LDA 
LDA 
MOV 
JMP 
JSR 
INC 
JMP 


117 
15 
9. 
9 

Ø 


1,1,SKP 
1, CHAR 
TTO 

.-1 
1,TTO 
1.19520 
TYPE1 
9,3 


$,RETN 
RETN 
2,0,5 
1,9,2 
1,1,SNR 
GRETN 
TYPE 
236 
MMSG 


, 


WAIT FOR KEY 


MASK TO ASCII NUMERAL 


; 
sSET CARRY TO TYPE ONE CHAR 


; CARRIACE RETURN? 
SYES, FIRST RETURN 
;SECOND OR THIRD RETURN 


;VALID NUMBER? 
;YES, GOOD RETURN 


3 


~o woo «99 Yo woe wo 


wo xo wo 


"99 ο 


ECHO & RETURN 


BIAS CARRY 
TTY IDLE? 
NO 


YES, KICK IT 
TWO CHARACTERS? 
NO 


YES, RETURN 


BUMP PAST PARAMETER 
TEXT ADDRESS 
TWO BYTES 


RETURN 


ASCII NUMBER MASK 
ASCII CARR. RET. 


[5 | m CORPORATIO 


N 


—19995-D800T 


ορ 00249 
65 90241 
Q4 00242 
002435 
00244 
Qo" 00245 
08 09246 
09 0024" 
10 09250 


13 09251 
14 00252 
15 09255 
16 09254 
17 09255 
18 20256 
19 0025" 
20 002690 
21 00261 
22 00262 
020265 
24 00264 
25 00265 
090266 
27 00267 


29 00270 
20 00271 
31 00272 


38 00275 
0051 5 


054121 
050272 
004222 
0090273 
0620272 
604251 
2020121 
004251 
0002509 


654256 
152621 
142491 
024270 
1254929 
142533 
020253 
094212 
1591220 
15120 
151224 
9090254 
024271 
094212 
0902236 


000057 
020049 
020001 


005015 
005015 
DOODO 


*'*90000 TOTAL ERRORS, 


EROR: 


BINOCT: 


BO1: 
BO2: 


C573 
SPC: 
STAT: 


STA 
STA 
JSR 
MSG1 
LDA 
JSR 
LDA 
JSR 
JMP 


STA 
SUBZR 
SUB 
LDA 
INC 
SUBZL# 
JMP 
JSR 
MOVZR 
MOVZR 
MOVZR 
JMP 
LDA 
JSR 
JMP 


Rt š 
*400+ 
.BLK 


5,ADR 
2,STAT 
MSG 


Ø STAT 
BINOCT 
Ø, ADR 
BINOCT 


3, RETN 
2,2,SKP 
2,0,SKP 
1,057 
1,1 
2,0,SNC 
801 
TYPE 
2,2 

pos 

2 2 ΤΗ 
802 
1,SPC 
TYPE 
GRETN 


1 


"eo "99 we 


«50 we Mo wo 


`° 


SAVE ADDRESS 
SAVE STATUS 
PRINT MESSAGE 


PRINT STATUS 


PRINT ADDRESS 
ERROR JUMP 


COMPUT OUTPUT 
WILL IT GO? 
YES 


PRINT DIGIT 


PRINT SPACES 
THALES IT 


s MESSAGES MUST TERMINATE WITH A NULL WORD! 


MSG1: 
MSG3: 


o. TXT 
«πχ 
eNOLOC 


END 


*€15><12>FATAL ERROR, TAPE STATUS = 


*<€15><12>FROM MTO:<O>* 


© 


00000 PASS 1 ERRORS 


5] | m CORPORATION / 


DIGIT 


<O>* 


I 


s ——99906 DBOOT 


ADR 200121 2/49 5/02 5/08 
AGAIN 290141 3/23 3/44 
BINOC 999251 5/87 5/09 5/13 
BKSPC 200171 3/42 3/48 
1ο 986253 5/15 5/19 
B02 200254 5/16 5/24 
BOOM 200064 2/08 2/13 
C117 2000255 4/06 4/41 
C2K 000121 1/11 2/50 
C57 @00270 5/16 5/29 
CHAR 000237 4/05 4/21 4/45 | 
CNT οσοι”. 1/35 1/42 3/49 
CR 000234 4/908 4/42 
CRLF 2012€ 1/36 2/47 
DBOOT 0290000 1/19 
DMAX 873777 1/06 2/40 
DTSZ Z00377 1/05 2/46 3/47 
END 009100 2/27 2/42 2/43 2/44 
EOF 0900173 3/02 3/58 
EROR ©0824 3/04 5/02 
FILCT 200937 1/42 
FWSPC 2909122 1/38 2/51 
LEND 177762 2/20 2/44 
LGT 299116 2/25 2/12 2/45 2/44 
MBKSZ 000170 1/45 3/23 3/47 
MEM @00121 1/18 1/50 2/06 2/17 2/48 
MMsG 299225 4/34 4/39 
MSG 000222 1/29 4/31 5/904 
MSG1 000273 5/05 5/38 
MSG3 090313 1/21 5/39 
NEXT 2200435 1/46 1/56 
NINE 000235 4/12 4/45 
NRDOS 20601027 2/55 
OOM 000060 1/52 2/04 | 
RBLK 099140 1/46 3/22 | 
READ 200174 1/29 1/27 4/92 | 
RETN 289236 4/31 4/32 4/36 4/44 5/13 5/27 
RETRY @00167 3/22 3/46 
RWCMD 220113 2/35 2/39 | 
SHUFF 2900101 2/28 2/33 | 
SPC 200271 5/25 5/30 | 
SPRCD 209127 1/39 3/08 | 
SRC 000115 2/04 2/42 
SRLP Z00054 1/39 1/41 1/43 
STAT 900272 5/23 5/06 5/31 
STRT 000117 1/44 1/48 2/15 2/46 
SZLUP 66060005 1/13 1/17 
TBØ 000011 1/29 1/23 1/24 1/26 1/29 
TB1 2000027? 1/28 1/34 
TSEOF 090123 1/40 2/02 35/02 
TYPE 200212 1/37 4/20 4/37 5/20 5/26 
TYPE1 000214 4/22 4/26 
TYPEC 092213 4/10 4/15 4/21 
WHAT 200956 1/47 2/02 
ZOOM 2020900972 2/15 
.DMAX 99114 2/37 2/40 


AE] 


_ onana 


DBOOT.SV LOADED BY RLDR REV 07.10 AT 15:58:49 11/15/81 | 
DBOOT 


e 
NMAX 009440 | 
@ ZMAX 000050 e. 
CSZE "T, | 
EST 0000090 | 
SST 200992 e 
USTAD 609400 Š 
ο 
ο 
| e 
ο 
9 


5 | A CORPORATION / 


κου "90 ^00 we “69 wo we SO We we "O9 we we wo 


"9-60 wo *60 we “9 wo wo wo WO κος 


0F$= 


OR$- 
% 


9ο ooo 
2 9 9 9 9 p y p p pu IID 


`° 
`° 
`° 
`° 
`° 
ο 
` ° 


MACRO REV 06.50 
@20 


.NOLOC @ 
3 


MACROS TO PERFORM FILE I/O 
333333333333 3333333333333 
MACRO TO GET A FREE CHANNEL # 
CALL SEQUENCE: 

GCHN CHANNEL 


CHANNEL 


AC2 IS DESTROYED 


.MACRO GCHN 
.SYSTM 


.GCEN 
JMP .+1 

STA 25315 
1 


MACRO TO OPEN A FILE OR DEVICE 
CALL SEQUENCE: 


OPEN CHANNEL, FILE" 
CHANNEL IN WHICH TO LINK FILE 


- FILENAME IN QUOTES 
ACO,AC1,AC2 ARE DESTROYED 


CHANNEL 
FILE 


.MACRO OPEN 


LDA Ø, OFS 
SUB 12 
LDA Bor lcs 
.SYSTM 

.OPEN CPU 
JMP .*1 
JMP 085 
Q*t1*2 

TXT ΤῸ 
.EJEC 


νο 


"60 ου "99 wo 


“oo wo 


“wo wo 


15:51:12 11/14/81 


GET A FREE CHANNEL 


; ERROR RETURN 
CHANNEL # TO USER STACK 


a 9 ο ΘΝ 4.9 Ὁ 8 9: 9.9? $6 $ 6 9. ο 
190 9.909 3 ο PEGI ο ο ο ο 9 


GET BPNT TO FILENAME 


DISPLACEMENT ON THE STACK TO STORE CHANNEL 
Ld 


ὢ 


PRESERVE DEVICE CHARACTERISTICS e 


GET CHANNEL 
OPEN MAG TAPE FILE 


ERROR RETURN 
NORMAL RETURN 


BPNT TO FILENAME 
FILENAME 


| | 
E) A CORPORATION / ° 


° 


- 


LI 


CALL SEQUENCE: 
TYPE CHAN, TEXT" 


ACO,AC2 ARE DESTROYED 


wo wo 69 we SO wo we Ye wo WO ου wo 


.MACRO TYPE 


LDA g,TT$ 
LDA 2 S 
~SYSTM 
WRL CPU 
JMP etl 
JMP TRS 
TTS= 3 
.*1*2 
.TXT 22 
R$= š 


MACRO TO TYPE TEXT ON À TERMINAL 


INTO 6. eel ο ο ο o | o IO oppo ὁ ο ο ὁὁ ο ο ὁ ος ο DRUCK ΤΠ ΤΉ 
ην) νην 3-319 V Y 312323 003133732933 9132399091970 


CHAN = CHANNEL ON WHICH TO TYPE TEXT 
TEXT - STRINC IN QUOTES 
ΑΦ = RETURNED BYTE COUNT 


GET BPNT TO TEXT 
GET CHANNEL 
TYPE TEXT 


ERROR RETURN 
NORMAL RETURN 


BPNT TO TEXT 
TEXT 


e 


« 


L2] 


AA CORPORATION / e 


οοοροι 
2900091 


200000 
09020901 
2000002 
0900093 
2009004 
000005 


220006 
90200907 


177767 
177766 
1700265 
200915 
020912 
2900922 
2£0017 
20200905 


e NOMAC 
.TXTM 


DMON IS A DIAGNOSTIC MONITOR WHICH PROVIDES CONTROL OF THE E 


DMON 

DMON | 

«ΟΕΒΜ, .DFRM, .DCOM e 

~ TASK, -ABORT 

1 

1 $) 
ECTUTI 


A DIAGNOTIC ROUTINE. THE PRIMARY FUNCTION OF DMON IS TO TRANSFE& C 


TO ANY NUMBER 


OF SUBTESTS SPECIFIED BY THE DIAGNOSTIC. 


ALSO DMON MONITORS CONSOLE INPUT PROVIDING FIVE INTERACTIVE Μος 


CR 


<N> 
.RTOSSR 
BIT 
BIT 
BIT 
BIT 
BIT 


- ο CO P 5 


; 

; 

; 

] 

] 

; 

; 

) 

; 

; 

) 

; 

; 

; THE SUBSET OF 
3 

, 

3 

) 

; 

] 

j 

; 

; 

3 

; BIT 
; 
; 
; 


START THE DIAGNOSTIC 

RESTART DMON 

TRANSFER CONTROL TO IDEB 

PRINT ERROR SUMMARY FROM THE ERROR LOG 


er 


PRINT STATISTICAL SUMMARY FROM THE STATISTIOS LOG 


DISPLAY THE CURRENT SWITCE REGISTER 


COMPLEMENT CORRESPONDING BIT IN SWITCH REGISTER. 


TRANSFER CONTROL TO DMON (FROM IDEB) 
^DTOS^ BITS PROVIDED BY DMON ARE: | 
@ — LOOP ON ERROR 

— SKIP LOOP ON ERROR 
— PRINT OUT TO CONSOLE | 
- DO NOT PRINT OUT TO CONSOLE | 
— PRINT PASS COUNT (ALL SUBTESTS) | 
DO NOT PRINT PASS COUNT | 
DO NOT PRINT OUT TO LPT 
— PRINT TO LPT 

— DO NOT HALT ON ERROR 

— HALT ON ERROR 


Per eres 
I 


e 


- DO NOT PRINT SUMMARY AND/OR PASSING OF EACH SUBTE 
- PRINT SUMMARY AND/OR PASSING OF EACH SUBTEST e° 


| 
DMON AND THE DIAGNOSTIC COMMUNICATE WITH ONE ANOTHER VIA LABELED CO 
| e 


H 

DSWR- 9 

DENT= DSWR+1 

DERR= DENT+1 

DSTAT- DERR+1 

DNTST= DSTAT+1 


DSENT= ODNTST+1 ; 


} 
ΡΝΑΜΕΞ DSENT+1 
DLEN- DNAME+1 


"oo 


“55ου o wo 


CHTTO- UTMP 
CHLPT- CHTTO-1 
SWR- CHLPT-1 
CR= 15 

LF- 12 
CNTLR- 22 
CNTLO= 17 
.CMSK- 5 

.EJEC 


SWITCH REGISTER | 
ADDRESS OF DIAGNOSTIC ENTRY POINT 


ADDRESS OF DIAGNOSTIC PRINT ERROR SUMMARY ROUTING 
ADDRESS OF DIAGNOSTIC PRINT STATISTICAL SUMMARY ROU 


ADDRESS OF DIAGNOSTIC TABLE -- SUBTEST ENTRY 
BIT @ = RUN FLAG | 


| POIS TS 


ADDRESS OF DIAGNOSTIC TABLE -- BPNT TO NAME OF SUBT 


3 
; 
; 
} 
; # OF SUBTESTS 
3 
; 
) 
} 


LENGTH OF COMMON BLOCK 


CHANNEL FOR CONSOLE OUTPUT 
CHANNEL FOR LINE PRINTER 

TMP STORAGE FOR SWITCH REGISTER 
CODE FOR CARRIAGE RETURN 

CODE FOR LINE FEED 

CODE FOR CONTROL “R” 

CODE FOR CONTROL “O 

ADDRESS OF RTOS CURRENT MASK 


“Owe 29 WO woe 8 voeo Vo 


UPON INITIALIZATION DMON PRINTS OUT A LIST OF THE SUBTESTS FROM THE 
DIAGNOSTIC TABLE ONE LINE AT A TIME. EACH LINE REQUIRES A R 
EITHER “ANY KEY EXCEPT CR” INSTRUCTING DMON TO RUN THIS SUBT 
INSTRUCTING DMON TO SKIP THIS SUBTEST. 


ESPC@SE 
EST OR 


e 


5 E CORPORATION / 


@0436 101005 
00437 090454 
20440 1004009 


@0@457”051767 
00460'096917 
00461'01707" 
£0462'€00491 
90465'006017 
30464” 097400 
90465'000401 


00470'1251900 
09473'1901995 


22474'125221 
£0475'125240 


00526'151904 
£050" 000745 


20512'000501 


DMON: 


DMONA : 


ILOOP: 


.NREL 
UI 


GCHN 
OPEN 
GCHN 
OPEN 


TYPE 
TYPE 
TYPE 
TY PE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 


ULDA 
LDAIU 
MOV 

JMP 

NEG 

MOVAU 
LDAIU 
MOVAU 
LDAIU 
MOV AU 
ULDA 


LDAIU 
UINC 
LDA 
.SYSTM 
.WRL 
JMP 

| S Y STM 
.GCHAR 
JMP 
LDAIU 
MOVL 
USUP 
MOV 
MOVZR 
MOVOR 
STAIU 
UINC 
UINC 
MOV 
JMP 
ULDA 
JMP 
.EJEC 


3,1000 si 
CHTTO ; GET A CHANNEL FOR $TTO 
GHETTO, STIO” ; OPEN $TTO ON CHTTO 
CHLPT : GET A CHANNEL FOR $LPT è 
CHLPT,'/3LPT^ ; OPEN $LPT ON CHLPT 
CHTTO,’DIAGNOSTIC_ MONITOR<LF><CR>” bw 
CHITO, TYPE. "CR. TO SKIP SUBTEST<CR)> | 
CHTTO, TYPE “ANY. KEY EXCEPT CR" ΤῸ RUN_ SUBTEST: 
CHTTO, AFTER SELECTION PROCESS DO THE. FOLLOW 1 “ος 
CHATTO; TIEN. "OR πο START DIAGNOSTIC<CR>” 
CHTTO, “TYPE_ CRY TU RESART DMON<CR>’ | 
GHPTO,^DYPE. Ὁ v0. TRANSFER CONTROL TO_ I DEB CR: 
CHITO, TYPE "IL  _ TO. PRINT “ERROR SUMMARY«CR?^ 
CERTO TYPE JW . . TO. PRINT STATISTICAL. SUMMARY «0 
CHTTO,'TYPE  "&" _ TO COMPLEMENT BIT_ SWR<L*S>< 
7, .DCOM š UAC? = ADDR. OF COMMON BLOCK E 
Q,DNTST,"7 ; UAC4 = -DNTST | < 
Q,0,SNR ; IF(DNTST = 2) | E 
MLOOP : THEN GO MONITOR CONSOLE INPUT - 
0,0 2 
9,4 | > 
@,DSENT,7 ; UACS = DSENT E 
0,5 k: 
£ ,DNAME , 7? ; UAC6 = DNAME i 
90,6 2 
“518 |: UAC? = CODE FOR “CR” | ° 
0,€,6 : GET BPNT TO NAME OF SUBTEST | 2 
6 s INCREMENT TO NEXT NAME | * 
2,CHTTO,3 š RESTORE CHANNEL TO CONSOLE OUTPUT 
> WRITE SUBTEST NAME 
CPU e 
.+1 ; ERROR RETURN 
; GET OPERATOR RESPONSE m 
ESI | 
165 : GET SUBTEST ENTRY POINT i 
1,1 ; SHIFT OUT RUN FLAG ° 
σ,0 ; SUB “CR” FROM OPERATOR RESPONSE 
0,0,SNR I IP = “CR 
1:737 SKP ; THEN CLEAR RUN FLAG ° 
1,1 ; ELSE SET RUN FLAG 
1,8,5 ; RESTORE SUBTEST ENTRY POINT f 
5 : INCREMENT TO NEXT ENTRY POINT, 5 
4 s INC LOOP COUNT 
2.0 -SZH * IF STILL MORE SUBTESTS 
ILOOP : THEN LOOP « 
6,.DCOM : ELSE, GET ADDRESS OF COMMON BLOCK 
IM ; GO DISPLAY SWR a 
- 
@ 
AA CORPORATION / w 


21 ; 
02 ; ; 
05 00513°026017 MLOOP: 
Q4 00514'007400 
05 00515'299401 
@ o6 29516 7 006017 
Ὅ gv €0517/010000 
08 00520 000401 
09 290521” 041775 
10 00522'€20003- 
11 09523'026017 
12 00524'010900 
13 00525'000401 
14 00526'020992- 
15 39527006017 
16 £0539'010900 
17 00531'/0904901 
18 99532/021775 


19 
20 005355'0090419 
21 MCR: 
22 00540020004- 
23 00541'171090 
24 90542077777 
25 00543“ 0004201 
26 00544'000" 47 
2g 
28 MR: 
29 09547“ 000407 
50 00550'126400 
31 02551'944905 
W 32 09552'125400 
33 00553077777 
34 00554'0990401 
35 09555'000655 
56 
57 MO: 
38 020560'0090496 
39 00561'126520 
40 00562 000553 
41 00563” 8009401 
42 00564'002401 
43 00565'19090406 
44 
45 ML: 
46 020570009495 
47 
48 09575'040415 
49 005740900407 
à 


91 MW: 
52 00577'009411 
53 
54 00602'040404 
55 00603'021767 MW1: 
56 39694/025766 

| EL [25ε25]σύδο05» 
58 20606 000000 MW2: 
59 00607 "200704 


MONITOR LOOP 


J.SYSTM 
GCHAR 
JMP 
.SYSTM 
.PCHAR 
JMP 
STA 
LDA 
eoYSTM 
.PCHAR 
JMP 
LDA 
eSYSTM 
.PCHAR 
JMP 
LDA 
CMPI 
JMP 
LDAIU 
LDA 
MOY 

o TASK 
JMP 
JMP 


CMPI 
JMP 
SUB 
STA 
INC 
eABORT | 
JMP 
JMP 


CMPI 
JMP 
SUBZL 
.ABORT 
JMP 
JMPG 
190426 


CMPI 
JMP 
LDAIU 
STA 
JMP 


CMPI 
JMP 
LDAIU 
STA 
LDA 
DDR 
JSRG 
g 

JMP 
„EJEC 


ESI 
6 ,UACO,3 


CNTLR,@,SZR 


MO 

ea 
1,.CMSK 
174 


e+] 
DMON4 


CNTLO ,@,SZR 


ML 
152 


"W,0,SZR 
MM 
%,DSTAT,6 
Q,MW2 
9,CHTTO,S3 
1,CHLPT,3 


MLOOP 


, 


wo wo ο 


"o6 wo 


*oo woo ου ` ° `° 


` ° 


"60 "^00 wo we ου 


GET CONSOLE INPUT ' a 
ECHO CHARACTER š 
SAVE CHARACTER E 
PUT “LF” | 

a 
PUT ^CR' 

a 
RESTORE CHARACTER è 
IF “σα” | 
THEN START THE DIAGNOSTIC  « 


I.D. = 1, PRIORITY = 1 | 


PASS FP TO DIAGNOSTIC am 
| | ὦ 
| | @ 

IF CONTROL “R” 2M 

RESET RTOS CURRENT MASK RI 

THEN RESTART TASK, I.D. = 1 

ABORT THE DIAGNOSTIC | | ὢ 

GO RE-SELECT SUBTESTS "M 

> 

IF CONTROL ΄Ο΄ 


THEN TRANSFER CONTROL TO DEBUCGH* 
ABORT THE DIAGNOSTIC 


| - 
ADDRESS OF DEBUGGER ENTRY POINT 
Tae MM - 
THEN PRINT ERROR SUMMARY 
SET UCALL ADDR = PRINT ERROR ADI@ 
GO DO IT 
IF ^w* - 


THEN PRINT STAT SUMMARY ' 
SET UCALL ADDR. = PRINT STAT) ADI® 
GET CHANNEL FOR CONSOLE OUTPUT 

GET CHANNEL FOR LINE PRINTER 
UCALL - PRINT SUMMARY ROUTINE ο 


| | 
[5 =| CORPORATION / 
3 | & 


| 


MO 
91 J MM: 


02 
95 
g4 


05 
9:5 


08 
09 
10 
11 
12 
15 
14 
15 
16 
| ic 
18 
19 
29 


@0@612 2004350 

IM: 
g@615“@30@012—- 
g0616 034477 
00617/175220 


Q7 C0620'020013-DLOOP: 


00621'125192 
02622'191400 
00623 ° 941406 
00624'175400 
00625°151404 
92626 “982772 


02627 “034916 
92630 °031767 
00651'020452 
00632006017 
96337017977 
00654^000491 
00655020460 
00636'096017 
22657917977 
QQ64c^€00401 
00641΄ 000652 


90642'126620 MN: 
$0643 °030014- 
$0644°113485 
20645΄000405 
00646 1504090 
00647'125220 
960650151404 
20651'0909776 
MN1: 


20660^039915- 
20661 0@34001- 
00 662°137414 
02665^/117415 
20664000406 


20671 “000496 
00672^155414 MN2: 
02673'113414 
006740900405 
G2675°174900 
00676 "165400 
92677°O34916 MN3: 


90702°000611 


€0703/001610 HEAD: 
00704'020960 
90715°001634 VALUE: 
00716'020€60 
000290—-090014 


**22202 TOTAL ERRORS, 


CMPI 
JMP 
LDAIU 
LDA 
LDA 
MOVZR 
LDA 
MOVL 
INC 
STA 
INC 
INC 
JMP 


LDA 
LDA 
LDA 
.SYSTM 
.WRL 
JMP 
LDA 

|. S YS TM 
WRI 
JMP 
JMP 


SUBZR 
LDA 
AND 
JMP 
NEG 
MOVZR 
INC 
JMP 
LDAIU 
XOR 
LDA 
LDA 
AND# 
AN D# 
JMP 
IOR 
JMP 
AND# 
AND# 
JMP 
COM 
AND 
LDA 
STAIU 
JMP 


state 
e TXT 
| +1 2 
.TXT 


00000 PASS 1 ERRORS 


"M,0,SZR 
MN 
1,DSWR,6 
2,--8. 
$,VALUE 


OS N Q S S > IA 
"go C ζΩ 


ο ο ο v v w ” 


jgiuocGneuO 


CPU 
Ø, VALUE 


CPU 
ST 
MLOOP 


1.5. ΘΕ 
02,978 
MN3 

3,3 

5,0 
3,UFP 

9 ,DSWR,6 
MLOOP 


sao οὐ WO we “99 we wo οφ "9 voe we 


“eo wo we 


*90 «οὐ 0 SO woe wo ^90 wo WO “69 wo WO we WO 


`° 99 wos "ου 


sao ο 


΄ 


IE ^M 


al 


THEN DISPLAY SW REG, GET SW REG * 


SET LOOP COUNT 

GET BPNT TO SW VALUE MASK 
CONVERT TO ADDRESS 

GET STRING FOR ONE BIT 
SHIFT OUT A BIT 

IF(1)THEN SET STRING = 1 | 


| 


SAVE IN SW VALUE MASK | 


€» 
/ 


- 


INC TO NEXT BIT POSITION IN iac a 


INC LOOP COUNT 
PACK ALL 8 BITS | 


RESTORE FP | 
GET CHANNEL TO CONSOLE OUTPU 


WRITE SW HEADER STRING 


WRITE SW VALUE STRIG 


MAKE MASK FOR BIT 6 

GET $-BIT MASK 

MASK CHAR. TO 3 BITS 
IF(@)THEN COMPLEMENT BIT @ 
SET LOOP COUNT 

MAKE MASK 

INC LOOP COUNT 

FINISH MAKE MASK 

GET SW REG 

COMPLEMENT BIT 

GET “LOOP ON ERROR’ BIT 
GET “HALT ON ERROR” BIT 


IF “HALT ON ERROR’ WAS TOCGLED 


AND IF TOGGLED TO ‘1’ 


THEN SKIP “LOOP ON ERROR 


IF “LOOP ON ERROR' WAS TOGGLED 


AND IF TOGGLED TO '2* 
THEN DO NOT ^EALT ON ERROR’ 


RESTORE FP 
SET NEW SW REG 


CRO 12904519 «CR» ^ 


"Zug {5 Boas 5.8 Απ «ροή 


l 


E 


e 


* 


- 


BID. ey ον 


να Ζ 
ADDI 29224" MC 1/01 


ANDI 900255 MC 1/01 * 
BITI 2909902635 MC 1/01 | 

_ CHLPT 1777766 5/55 3/54 4/07 4/98 5/56 

0 7o 177767 5/59 νε 5 "πα 4/11 «πρ - 


4/13 4/14 4/15 4/16 4/17 4/18 4/19 
4/34 5/55 6/16 


CMPI 209260 MC 1/61 5/19 5/28 5/37 5/45 5/51 6/61 E 
CNTLO 29099017 3/58 5/38 
CNTLR 299922 3/57 5/29 | 
CR 000015 3/55 4/19 4/11 4/12 4/13 4/14 4/15 - 
4/16 4/17 4/18 4/19 5/14 5/20 6/54 
6/56 
DENT 209901 S Rn 3/39 5/22 e 
DERR 299802 3/39 5/40 5/48 
DLEN 000007 3/45 | 
DLOOP 00620” 6/07 6/13 e 
DMON ΦΦΦΘΘΘ΄ EN 3/22 4/02 6/57 s 
DMON4 200452” 4/20 5/35 5 
DNAME 0009006 3/44 3/45 4/29 - 
DNTST 2009024 3/41 3/42 4/22 E 
DSENT 2000205 3/42 3/44 4/27 a 
DSTAT 090003 5/40 3/41 5/54 o 
DSWR 20909090 3/37 3/38 6/64 6/56 6/51 | à 
GCHN 000300 MC 1/16 4/04 4/06 Š 
HEAD @@2793’ 6/17 6/55 e. 
ILOOP 099452’ 4/32 4/51 | 1 
IM 028613" 4/53 6/03 
IOR 992266 MC 1/61 6/42 |i - 
@ LDAIU 2902163 MC 1/21 4/21 4/26 4/28 4/32 4/41 5/21 | 
1 5/47 5/53 6/83 6/35 | 
LF 000012 3/56 4/10 4/12 4/19 5/10 6/56 e 
| MCR 0090536” 5/21 
ML 200566΄ 5/38 5/45 | | 
MLOOP 000513” 4/23 5/03 5/26 5/59 6/25 6/51 e 
MM 909619^ 5/52 6/01 | 
MN 300642" 6/22 6/2" | | 
Μνι 200652” 6/30 6/35 e 
MN2  2909672* 6/41 6/44 
MN3 200677’ 6/43 6/46 6/49 = 
MO Z2O556 ” 5/29 5/37 | e 


MOVAU 200134 MC 1/01 αι CAELI PAS 99-84 4/54 
4/49 4/90 4/53 E 3 

MOVUA 200136 MC 1/01 «ο. ER 4/29. 4/55 4/84 4/42 e 
4/44 4/48 4/49 4/50 5/22 5/48 5/54 | 
6/04 6/36 6/51 


MR 000545” 5/20 5/28 e 
MW 000575” 5/46 5/51 

μπι 200603” 5/49 5/55 

MW2  2090606^ 5/48 5/54 5/58 ° 
OF003 0900025” 4/06 

05205 000044” 4/08 

OPEN 020315 MC 1/33 4/25 4/07 | e 
OR003 20031" 4/06 

OR225 0000528” 4/28 | TN 
RETSR 000212 MC 1/91 || - 


SAVE 000171 MC 1/901 
STAIU 2900166 MC 1/21 4/47 6/59 | 
SUBI 4900252 MC 1/291 e 


ο — 
= cero NN 


177765 
0200072* 
90011"* 
000153” 
900029" * 
020236" 
000262” 
928315" 
000345" 
@@0@400 
@00452 
0@00056 
@00100” 
300125” 
200161^* 
@00215 
000ρ44΄ 
0002790* 
00323” 
00353” 
902406* 
206356 


177771 
177772 
1777735 


177774 
1770759 
177776 
177777 
200146 
0090154 
2090119 
200016 
202052 
9900157 
00022" 
0029140 
177770 
2902009 
209127 
2901435 
202151 
200129 
177767 
000715” 
D00275 
00562” 
00209035 
2002905 
9090015 
0000025 
000542” 


MC 


3/54 
4/10 
4/11 
4/12 
4/13 
4/14 
4/15 
4/16 
4/17 
4/18 
4/19 
4/10 
4/11 
4/12 
4/13 
4/14 
4/15 
4/16 
4/17 
4/18 
4/19 
2/13 
4/15 
1/81 
1/01 
1/21 
5/54 
1/61 
1/61 
1/81 
1/61 
1/91 
1/21 
1/91 
1/01 
1/61 
1/61 
1/01 
1/21 
1/91 
1/901 
1/01 
1/61 
1/61 
1/61 
1/61 
6/05 
1/61 
2/04 
2/05 
3/59 
3/03 
3/83 
3/04 


4/69 
4/16 
4/26 
4/28 
4/350 
6/94 
4/21 
5/29 


4/05 
4/02 
4/33 


4/20 


4/43 


3/52 
6/21 
6/36 
5/33 
5/57 
5/31 
4/21 


5/24 


4/1€ 
4/17 
4/50 
4/42 
4/33 
6/36 
4/22 
5/18 


6/15 
4/48 


4/30 


4/05 
6/55 


5/40 


4/53 


4/11 
4/18 


4/48 
4/34 


6/51 
4/27 


6/49 
4/49 


4/52 


4/12 


4/49 
4/53 


4/29 


4/13 


5/22 
4/31 


4/14 


5/48 
4/44 
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í 
H 

23 ; FILENAME:  ULINKMAC.SR 

4 ; 

5 ; NARRATIVE: THIS MODULE MUST BE ASSEMBLED WITH PROGRAMS USING|THE ^U 

€ ; SUBROUTINE LINKAGE PACKAGE. THE SOFTWARE PACKAGE UTILIZES 

7 ; “USP” AS A FRAME POINTER TO FACILITATE THE TRANSFER OF 

8 : SUBROUTINES. A STACK FRAME IS CREATED FOR FACH LEVEL 0 

9 ; EACH FRAME IS COMPOSED OF A FIXED LENGTH HEADER FOLLOWE 

g ; LENGTH STORAGE BLOCK FOR TFMPORARIES. EXEPT FOR THE LI KAGE ni 

1 ; THE FRAME HFADER IS NOT UTILIZED UNTIL THE CURRENT SUBROUTINE 

Ζ ; ANOTHER SUBROUTINE. $ 

3 ; THE 'ULINK/ PACKAGE PROVIDES FOUR MACROS FOR INTERFACE TO THE 

4 ; UI ,UCALL,URET,USUBR. EACH MACRO IS DESCRIBED IN DETAIL E 

: € 

6 015413 3332 ο 192 5332232309857 HE REE ee ee ee 
i" ; 
18 ; DEFINE THE USER FRAME POINTER « 
18 ; z 
22 020916 UFP-USP ; RDOS “USER STACK POINTER’ 5 
21 ; e. 
22 ΑΟ ca^ a aea a i a ae 
O ; τ 
24 ; DEFINITION OF USER FRAME DISPLACEMENTS | & 
25 ; E Te 
26 ; ; BEGINNING OF FRAME HEADFR ὦ 
27 ceocco UPC- e ; STATE OF PC+1 e; 
28 177777 UAC2= UPC-1 |: STATE OF AC? BEFORE 'UCELL [ή 
29 197076: VACI= UAC2-1 5U8SS ATE OF VACI BEFORE) “OCELE- 
Zg 177775 Όλος . UACi-1 | STATE OF ACO BEFORE “ποδια” ° 

1 177774 U7= UAC2-1 ; STATE OF UAC? BEFORE “UCALL’ 

2 17710175 U6- U7-1 ; STATE OF UAC6 BEFORE “UCALL’ 

$ 177772 U5- U6e-1 ; STATE OF Όλος BEFORE 'UCALL^ * 

4 φορ UAS U5-1 ; STATE OF UAC4 BEFORE οσα” 

5 1777798 ULNK- U4-1 τικ TO CALLER/S FRAME 

β ; ; END OF FRAME HEADER * 

7 177767 UTMP-  ULNK-1 ; START OF SUBROUTINE TMPS 
38 ; 
a9 ; THE USER STACK IS BROKEN UP INTO AN ORDERED LIST OF USER FRAMES. «Ὁ 
40 ; THE BEGINNING OF THE LIST IS “USP”. THE LINKAGE WORD IN THE FRAME d 
4 ; POINTS TO THE CALLER’S FRAME. WHEN A SUBROUTINE HAS CONTROL, |THE CO 
4 ; OF “UPC’ EQUAL THE SUBROUTINE ENTRY POINT AND THE MACHINE STATE PRT 
4 : TEE FRAME IS UNUSED. THIS UNUSED SPACE MAY BE UTILIZED TO PROVIDE 
A ONE LEVEL OF LOCAL SUBROUTINE LINKAGE. 4 


op 6 ο 069 


gage ULINK 
+ 1233331111313111311J11111713111113111113131311113132323111311] 
02 ; | 
23 ; MACRO TO INITIALIZE THE USER STACK | 
24 j a) 
25 ; CALL SEQUENCE: | 
26 ; | 
o: UI NTMP ,MEMI x 
28 ; NTMP = # OF TMPS ALLOCATED ON THE STACK FOR THE|MAIN P 
ae ; MEMI = MEMORY INCREMENT - TOTAL # OF TMPS FOR TASK 
12 ; S 
11 .MACRO UI | 
12 SYBTM ; GET NMAX 
15 .MEM | 
14 JMP mds ; NO ERROR RETURNS | 
15 LDA 3,= 1-UTMP ; SET FRAME SIZE 
16 ADD 1.5 ; START OF STACK = NMAX + FRAME|SIZ€9 
17 STA 2; Uf P {SET FP | 
18 LDA D. 2 ; GET TOTAL 4 OF TMPS FOR TASK 2 
19 SYSTM ; INCREMENT THE VALUE OF NMAX o 
20 .MEMI š 
21 JMP +1 | 5 
22 yd | e. 
23 ΟΥ ΑΛΑ ΑΟ ΑΕ ο ο EA ETE 
24 j E 
25 : MACRO TO CALL A USER SUBROUTINE ο 
2A ; n 
— G | v1 
27 ; CALL SEQUENCE: E 
29 ; | - 
20 ; BOALL . BUBR I. 
30 j SUBR = ADDRESS OF SUBROUTINE ENTRY POINT | 
21 ; 2 
e: .MACRO UCALL | 
BS JSRG .CFRM ; CREATE A FRAME | 
Ξ4 sd ; SUBROUTINE ENTRY POINT e 
45 % 
36 | GERMS MUST. BE DEGLARED. EXTD; 
37 ; e 
*8 ΤΗ ΠΤΙ ΤΡ ΠΕΣ ΕΠΕ 
39 ; 
4 : MACRO TO DEFINE A SUBROUTINE ENTRY POINT e 
41 ; 
42 |. CALL SEQUENOE: 
49 ; : e 
44 ; USUBR — SUBR,NTMP | 
45 ; SUBR = NAME OF SUBROUTINE 
46 : NTMP = # OF TMPS REQUIRED BY SUBROUTINE e 
47 ; 
48 «MACRO USUBR 
49 : 2-UTMP ; FRAME SIZE e 
52 1= š * SUBROUTINE ENTRY POINT 
51 % ; 
Do 2334153 933 3 15 ΑΙ 94333 33333333333 31331333313 32 3 95935312! ο 
53 ; 
54 ; MACRO TO RETURN FROM A SUBROUTINE 
56 .MACRO URET 
57 JMP 6, DERM ; DELETE CURRENT FRAME | 
@: Y ° 
59 | 7 DERM” MUST BE DEGLARRD παρ”, 
ερ IJRO 
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ACCUMULATOR 
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MOVAU 
; 
ACCUMULATOR 
} 


UADD 
; 


USTA 
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; 
AN ACCUMULATOR INTO A USER 
j 
A 
) 
JSER ACCUMU 
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A USER ACCUMUL 
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2025 ULINK | 
V ELEC SSE ED OI 3 99)3 4353 335393 339799 3 39 340 ΥΩ τς ον ΤΙ 559; 
$2 ; | 
ως > MACROS TO PROVIDF ONE LEVEL OF LOCAL SUBROUTINE LINKAGE | š 
(4 ; 
a5 $3332: 1:2 3T 03 9 333 ο ΙΕ 3339393331313 thee 321303333 
τς ; 

o. : MACRO TO 'SAVE^ THE CURRENT MACHINE STATE IN THE FRAME EFADER , € 
σ8 ; 
29 ; CALL SEQUENCE: 
12 ; ΠΡ & 
11 ; ACS= RETURN ADDRESS 
12 ; SAVE 
13 ; : e 
14 .MACRO SAVE 
15 STA 3,@UFP ; SAVE RETURN ADDRESS 
16 LDA 3,UFP ; GET FRAME POINTER e 
17 STA @,UAC@,3 ; SAVE ACZ,AC1,AC2 
18 STA 1,UAC1,3 
19 STA 2,UAC2,3 ® 
20 r 4 E 
21 ΕΛΛ 333 3333333333 333335 D ΤΕΙ 
οκ ; n 
25 ; MACRO TO ^RESTORE/ THE MACHINE STATE FROM THE CURRENT FRAME HEADERS 
24 ; E 
25 ; CALL SEQUENCE: e 
26 ; F 
27 j AC3= UFP 5 
28 ; RETSP ; RETURN SUBROUTINE e: 
32 .MACRO RETSR 
21 LDA @,UAC@ ,3 ; RESTORE AC2,AC1,AC2 Φ 

Θ΄ LDA 1,UAC1,3 

3 LDA 2,UAC2,3 
Z4 JMP GUPC,2 ; RETURN TO CALLER e 
25 9/ 

26 1:332 402223 102233 ΕΝ ο ΕΕ ΕΕΣ ΕΣΑΣ aa AAE 
57 ; © 
39 : MACRO TO PROVIDE A 2ND LEVEL OF LOCAL SUBROUTINE LINKAGE 
50 ; 
40 ; CALL SEQUENCE: | e 
41 ; 
45 ; AC3= UFP | 
43 ; UJSR SUBR 9 
44 j SUBR - PAGE ZERO ADDRESS OF SUBROUTINE 
45 $ AC2 IS DESTROYED. 
46 ; EL © 
47 .MACRO UJSR 
48 LDA 2,UPC,3 s. U7 = CALLER'/S PC | 
4g STA PUTAS (€ 
ο JSRG 1 > XFER CONTROL TO 2ND LEVEL | 
51 LDA δ υπ 5 CATLER S PO Uv | 
52 | STA ESUPC. S e 
55 4 
54 .EJEC 

| 
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>° ον 


H 

o2 ; 

Oz ; MACROS TO PROVIDE AN “IMMEDIATE” MODE OF ADDRESSING (AC2 IS DESEROYE 

g4 ; € 

£5 .MACRO ADDI ; ADDI N,AC 

26 LDA gym d En 
o: ADD pon ο 

ee % 

29 .MACRO SUBI ; SUBI N,AC Ν 

19 LDA BE α e 

aed SUB 2202 

12 % 

13 MACRO ANDI ; ANDI N,AC ® 

14 LDA 2,= 4 

5 AND A 28 

16 % ® 

17 .MACRO CMPI | COMPT IN NCT SRIEP 

18 LDA 2,2 1. 

19 SUB# Bo 24 Ὁ e° 

2g x 3 

Ail .MACRO BITI ; BITI N,AC,SKIP dic = 

22 LDA 2,2771. | €. 

58 AND# Bo eth ad | Ë 

24 % CM 

25 333333333353333333333 3333333333 333333333333333333333333333333353 135595 

26 ; mE. 

27 ; MACRO TO PERFORM THE LOGICAL “INCLUSIVE OR’ OF TWO AC’S E - 

28 ; EE 7 

29 ; CALL SEQUENCE: E 

20 ; 

$1 ; IOR AC,AC e 

val] ° 

~ ; l 
ο .MACRO 108. νο 

34 COM αν τὰ Φ 

35 AND gos | 

36 ADC 19. | 

57 COM 1524 e@e 

38 € 

59 ΣΣ} δ} Δ} δα} ἢ} αυ} 333332333333 2333323 33333223 3332323332333333 323232 300 2 2:13 

42 ) 9 

41 ; MACRO TO PERFORM THE LOGICAL “EXCLUSIVE OR’ OF TWO AC’S 

42 ; 

43 ; CALL SEQUENCE: © 

44 ; 

45 ; XOR AC,AC ; AC2 IS DESTROYED 

46 ; e 

47 .MACRO XOR 

48 MOV UB ue 

49 AN DZL 2142 

56 ADD Lee 

Si SUB S ue 

5g 

55 

54 


O 
td 
© 

= 


0027 ULINK | | 
2 © 
.CFRM, .DFRM,CFRM, DFRM 


02 TENT | 
25 221 .NOMAC 1 | 
@4 me N .ZREL ο 
ϱ5 οϱοεσς-οοθσοο΄' .CFRM: CFRM ; ADDRESS OF CREATE FRAME ROUTINE 
@: 009001-0909922^.DFRM: DERM ; ADDRESS OF DELETE FRAME ROUTINE 
)^ .NREL 9 
98 
i 151 5542336 ο ο TO ALO ο Con ΠΕ ee eee 
«κ b | 
11 ; ROUTINE TO CREATE A STACK FRAME FOR A SUBROUTINE. | 
Le 3 | 
[3 ; CALL SEQUENCE: ο 
14 ; : 
15 ; UCALL | SNAME | 
16 ; SNAME = SUBROUTINE NAME 9 
17 : 
18 ; NARRATIVE: TEE CALLER/S MACHINE STATE IS SAVED ON HIS FRAME.| A NEW 
19 ; IS CREATED ON THE USER STACK. SPACE IS RESERVED FOR πι μ.ο 
20 ; SPECIFIED BY THE SUBROUTINE. CONTROL PASSES TO THE SUBROUTINE 
21 ; ae 
22 ΠΗ πη 1391319 13133 HE E1339 3 0992 D GE: 
ZO ; E 
24 020920/175400 CFRM: INC 3,3 ; SET CALLER/S RETURN ADDRESS 3 
25 SAVE ; SAVE MACHINE STATE e 
26 Ç 
27 00996 252016 LDA 2,GUFP ; RESTORE RETURN ADDRESS 5 
28 229027'025377 LDA 1,-1,2 ; GET SUBROUTINE’S ENTRY POINT e 
29 0€010 131200 MOV 123 ; COPY ENTRY POINT Lp 
50 00011/031377 LDA P =P ; GET NTMP^S REQUIRED BY SUBROUTINE 
81 02012'1570900 ADD 2,3 ; CALCULATE SUBROUTINE S ΤΡ | € 
o 20013'93€016 LDA 2,UFP ; RESTORE CALLER’S FP 
53 22014/054916€ STA 3, UFP ; CREATE A STACK FRAME | 
34 0909015'2517790 STA 2 ULNK,3 ; SET LINK TO CALLER’S FRAME € 
55 | 
$6 79916/246216 STA 1, GUFP ; UPC = ENTRY POINT 
87 20217'025376 LDA 1,UAC1,2 ; RESTORE CALLER/S AC1,AC2 το 
28 ?0€20'031877 LDA 2,UAC2,2 | 
30 20921'09234900 IMP @UPC,3 ; XFER CONTROL TO SUBROUTINE 
40 ο 
41 313333133333333333 3333333333333 3333333333333 3533333333 333533 ΕΣΡ 1333 
y» 
c D j 
43 ; ROUTINE TO DELETE À STACK FRAME | 1€ 
44 ; | 
45 ; CALL SEQUENCE | 
4€ ; E ) 
47 ; URET 
48 ; | 
49 ; NARRATIVE: THE CALLER/S MACHINE STATE IS RESTORED. (€ 
50 ; CONTROL IS PASSED BACK TO THE CALLER. | 
51 : | 
52 η, U ο ο ολο a LH 9990 IA : 
53 
54 Q9022”034016 DFRM: LDA 3,UFP ; GET SUBROUTINE^S FP | 
55 699023'035770 LDA 3,ULNK,3 ; CET LINK TO CALLER/S FP EE 
56 €€024'054016 STA 3,UFP ; RESTORE CALLER/S FP | 
e: RETSR ; RETURN FROM SUBROUTINE | 
5€ . END | 


"*22990 TOTAL ERRORS, 00900 PASS 1 ERRORS ONUS 


C608 ULINK | 


ADDI 990247 | 9 
ANDI 222255 MC 6/13 | 
BITI 2099263 mc 6/21 e 
CERM 2202000 EN 7/02 7/85 7/24 
‘MPI 8990260 MC 6/17 
FRM 20022" EN 7/02 7/26 7/54 ο 
IOR 209266 MC 6/32 | 
LDAIU 92220165 MC 4/38 
MOVAU @@2134 MC 3/14 Φ 
MOVUA 222136 MC 5/22 
RETSR 9092212 MC 5/3 7/57 
SAVE 029171 MC 5/14 7/25 ο 
STAIU 209166 MC 4/48 | 
SURI 202252 MC 6/29 | 
U4 177771 1/34 1/55 9 
US 177772 1/33 1/34. 
16 177773 i52 1/33 | 
U7 177774 1/31 1/32 9 
UAC® 177775 1/32 12/51. 7/26 7/58 a 
UACL 177776 1/29 1/32 7/26 7/37 7/58 | ° 
UJAC2 μετα 1⁄28 1⁄29 7/26 7/38 7/58 | | e 
UADD 4222146 MC 5/52 | Ë 
UAND 2990154 MC 4/17 E X 
UCALL 220119 MC 2/32 - 
UFP 009916 1/22 7/26 7727 7/32 7/33 7/36 7/54 bh x 
7/56 USE 
UI 0929050 MC 2/11 (€ 
UINC 229157 MC 4/27 EL 
UJSR 29090227 MC 5/47 | 
ULDA 220140 MC 3/32 E 
| B 17777% 1/35 1/37 7/354 17 95 
νο σσσσοῦ 1727 1728 7/39 7/5 
URET 209127 MC 2/56 Φ 
USTA 2001435 MC 3/42 | 
USUB 9€2151 MC 4/97 || 
USUBR 6661256 MC 2/48 το 
UTMP 177767 1/37 
XOR 209275 MC 6/47 
.CFRM QQ2@Q2— EN 7/02 7/05 |; @ 
.DFRM 292090901-— EN 7/282 7/46 A 
9 
NIS | 
d | | @ 
ο 
© 
aN E) 
J 
& 
e 
@ 


= 
Ώ 
Ü 
2 
U 
D 
J 
> 
Ü 
2 


DP4:MTD.SV 
MTD 
DMON 
ULINK 
IDEB 
RTOS 
ABORT 
TABT 
TASK 
TCBMO 
NSACS 
DUMMY 
INTD 
TTYDR 
RTCDR 
LPTDR 
SYSTE 
RTIN 
SCHED 
GENIO 
IOSER 
ABORT 
RESOL 


NMAX 
ZMAX 
CSZE 
EST 
SST 


¿MSW 

ESV. Z 
LPN. X 
.NTSK 
«ΝΟΗ͂Ι 
.FRTC 
eRTCF 
ΒΙΟΜ 
.DCOM 
.CFRM 
.DFRM 
CTCB 

eOYSE 
SERT 
.SER2 
SERS 
CLBLK 
C51K 

USTAD 
ERMSG 
MTD 

.RTCI 
ER.SC 
RE.SC 
ENV. 
.ABOR 
¿TASK 
TSAV 
ID.SR 
S ACE 
DMON 


TD nM 


LOADED BY RLDR REV 97.10 AT 19:21:36 11/15/81 


056544 
g2@171 
90290000 
955165 
0563543 


0000900 
2000092 
900000 
29090002 
9000022 
ORAA 
9000205 
9900994 
020062 
9000145 
0090146 
9020161 
9090166 
60016" 
00216" 
009179 
@@0577 
ggosvv 
000400 
0200440 
200669 
901750 
0021635 
002164 
0259902 
09615" 
0061692 
026162 
006165 
020016 
921425 


n zr; 


5 | E CORPORATION 


DEBUG 


.TCBP 
.UFPT 
.ITBL 
.ETBL 
.CHTB 
A. BOR 
TMAX 

R.UTS 
.SAC2 
.RTAS 
LQTSC 
SYSTO 
SYST 
QT CNT 
SM.SW 
TLINK 
TUNLK 
T.ASK 
K.ILL 
K.ILA 
TSK.X 
OPRD 

Q.TCK 
ESV.X 
ESV.K 
TRL.X 
T.OVL 
T.OVA 
«1ΝΤΡ 
.INTD 
«5015 
.BDCT 
I.AC3 
S. DC T 
S.DIS 
D.ISM 
D.ISN 
.RQUE 
TIEX 
.TIIN 
.TOIN 
TISV 
.WCHR 
«1115 
J.TIDT 
TOEX 
.T0SV 
¿TODT 
RTCDR 
TO DMS 
TODH 

RTCIS 
CLK 

S. ECI 
-GTIM 
¿STIM 
.GTDY 
eo TDY 
UCLI 
~UCLR 
LPEX 
.LPIN 


T ΏΤτπι 


222411 


029401 
927455 
027461 
027569 
027561 
027576 
927674 
050013 
030016 
030024 
0509049 
050951 
0509055 
23500" 3 
035007 4 
30075 
0501290 
0350147 
05022" 
050504 
050542 
O30343 
0590545 
05035435 
03595435 
0350543 
03503544 
030344 
250551 
05035535 
9504351 
050465 
9035904"79 
030472 
0350599 
950519 
9350521 
050606 
23590662 
950665 
0350675 
050726 
930716 
0350751 
051191 
9351156 
251214 
651225 
951234 
251271 
051272 
9351392 
251405 
05145” 
251442 
251465 
25152" 
051551 
951575 
051605 
9317290 
651725 


AZAR 


SCTST 

τ CHCK 
AIOST 
I.OEN 
NMCHK 
.RTOS 
R.SCH 
S. CHD 
T.OCK 
E.USR 
T.MNX 
. RDL 
«e RDS 
.«WRS 
ο WRL 
«9ΑΟΦ 
.GCHR 
.P GHR 
.OPNO 
.CLSO 
.OPNI 
OLST 
.RSET 
.XIBU 
.IBUF 
.PENQ 
, ENQB 
.UNPE 
.FINP 
«0056 
ΚΕ “STOU 
D DIAS 
~sDIG 

.DDOB 
.DDOC 
.NIOC 
| .DOAS 
ALAC 

NIOS 

oSKPB 
A.BTC 

EN .SC 

.RTCC 

INT.E 

INT.D 

Ko TEZ 
.RTCN 

J.LPOH 

¿CORE 

TTIDC 
TTODC 
RTCDC 
LPTDC 
.MTUO 

.MTU1 

.MTU2 

9 «76 
.MTUA 
.MTUS5 

.MTU6 

JO? 

.CTU£ 
Aui 


CMTS 


0351747 


032549 
032601 
032667 
032714 
033124 
033337 
033347 
033373 
055447 
033462 
033465 
033471 
033472 
033537 
034016 
034054 
034056 
034064 
234077 
034106 
034113 
054154 
034241 
034242 
034352 
034353 
034430 
034443 
034643 
034645 
034771 
054773 
034775 
034777 
035021 
035093 
035005 
035007 
035011 
035031 
056012 
060114 
060177 
260277 
060456 
061114 
071002 
077400 
130634 
131112 
131234 
131654 
177777 
1777777 
177777 
177777 
127777 
Tm 
177777 
177777 
177777 
177777 


4 r177!7!277 


m | a CORPORATION 


-CTU4 17777 


; 7 e 
.CTU6 je urs M c ΡΟ o c η 
.CTU? 177777 e 


.DCHi — 177777 
.DCH2 —— 177777 
.O VPN 177777 
Ə .. 1777777 x 
.SWAM — 177777 
ΜΠΕ. = 177777 
DUMAP — 1777277? nes 
.MPB1 177777 
MPLB 177777 
.UITB — 177777 9 
.WMBK — 177777 
.DKPD — 177777 
.INTL — 177777 9 
.CKUS — 177777 
..0V0 177777 
.LDOV — 177777 7 


e o VME Tr v 


ΜΑΡ 177777 AM 
.BLKR LEITET B 
.BLKW —— 177777 Ë 
SIDE 1727777? e 


.. ΙΒΜ 177777 
..STM 177777? | - 
. MEM 177777 k: 
| .USER 177777 @: 
| .MPON 177777 
.MPEN 177777 | | 

b i .CKMT TT | 2:9 
D .RLES 177777 | 
.INTR 177777 8 

| .TPIO 177777 53° 
| .GTMC 1777777 
.CXMC 1777777 
| .CKQT 177777 
| .CKPK 177777 
.CKDK 177777 
TMIN 177777 
DSKDC 177777 
ESV.S 177777 


`° 
` ° 


[s | a CORPORATION 


91 
66 


g@@1 MTD 
0000 


202001 
σοσοσσι 


200605 
155555 
1252852 
052525 
269000 
LTR 


000000 
GOOOL 
290902902 
0002035 
οθθθ δά 
020005 
200096 
OOO OT 


220009 
210009 
001000 
2090400 
200200 
2000904 
0900901 


000490 
0900012 
000012 
950012 
2000015 
009995 


177767 
177766 
177765 


E] | A CORPORATION 


MACRO REV 26.50 19:16:29 11/15/81 
.NOLOC @ 
.TITLE MTD ; MAG TAPE DIAGNOSTIC e 
. ENT MTD,.DCOM,ERMSG 
.EXTD — .CFRM,.DFRM 
.NOMAC 1 e 
.TXTM 1 
/553535 358088505 TOT η. 
3 
; PATTERN PARAMETERS . 
; ' 
NPAT- 5 ; # OF PATTERNS 
PAT1- 155555 ; PATTERN 1 
PAT2- 125252 ; PATTERN 2 e 
PAT$- . 052525 ; PATTERN 3 
PAT4= 209000 ; PATTERN 4 
PAT5= 177777 ; PATTERN 5 e 
; ; 
PPP 385 
D a 
; MTDIO COMMANDS Ë 
? = 
MTRD- 2 ; READ e 
MTRW- 1 ; REWIND E 
MTRDS- 2 °? READ STATUS ° 
MTSFW- 3 : SPACE FORWARD €: 
MTSBW= 4 ; SPACE BACKWARD | i 
MTWR= 5 ; WRITE | : 
MTWRE- 6 ; WRITE EOF e 
MTERS- 7 ; ERASE 
, 
SE Steer ο ΑΟ ΣΣ ο ΙΑ ΠΒ} 
3 
; MAG TAPE STATUS BITS è 
$ 
SRW= 1B2 : TAPE IS REWINDING 
SILGL- 1853 5:ILLEGAE 
SEOT- 1B6 ; END OF TAPE MARK © 
SEOF= 157 ; END OF FILE MARK 
SBOT= 188 ; BEGINNING OF TAPE MARK | 
SLOCK= 1815 ; WRITE LOCK φ 
SRDY=  1B15 ; UNIT READY 
3 
SOR ο ο ο ΟΛ ΤΑ ο Rl Bh 5 
RECSZ= 256. ; RECORD SIZE 
NRTRY= 10. ; # OF RETRIES g 
DCNT- 10. ; DELAY COUNT 
LF= 12 ; CODE FOR LINE FEED 
CRS 15 s CODE FOR CARRIAGE RETURN τ 
.CMSK= 5 : ADDRESS OF RTOS CURRENT MASK 
π---Ἢ-“--'';͵---“-““ΔΚ.-.»;-;-᾿-;Ἠ-”Ἤ͵ᾱ“ἒἕ- TEREST TESS TFET ΣΣ nd pP 
3 > 
; DEFINITION OF RUN-TIME STACKS 
; 
CHTTO- UTMP : CHANNEL FOR CONSOLE OUTPUT € 
CHLPT- CHTTO=1 : CHANNEL FOR LINE PRINTER 
PASOTS CHER Tt s PASS COUNT 
.EJEC 5 


0029021 
000909€ 


"oo 
` ° 
"9 
`° 
seo 
"oo 
` 
`° 
sce 


CALL SEQUENCE: 


ESET TYPE 

«ΑΡΗ»: «FUNCTION ITSELF» 
JMP <NRM> 
EMSG “MESSAGE 1^ 
EMSG “MESSAGE 2% 
EMSG “MESSAGE Ν΄ 
ELOOP <ADR> 
EHALT 

<NRM>: 


C 99 o o 00990 . 
αλ ΕΕ ΕΕ 


;N 


? 
ο 


MACROS TO PROVIDE CODING OF ERROR DETECTION FUNCTIONS. 
PROCEDURE FLOW FOR AN ERROR DETECTION FUNCTION: 


ORMAL RETURN 


OPTIONAL 
REQUIRED 


0000029020099 000009020920220209029002060000022300020209950000000009*909099 959 
359-9 359.3 33-333 WII 3.33.39 PP 33.3 $ 99 93.313939 33329 939393 3 993993332932 2? | 


MACRO TO SET-UP AN ERROR DETECTION FUNCTION 


e. 9099 
3335333333329) 


ESET TYPE E 
TYPE = LOOP, FUNCTION WHICH USES “LOOP ON ERROR’ FRAT 
TYPE = NLOOP, FUNCTION THAT DOES NOT USE “LOOP ON “RR 
U6 IS USED FOR “LOOP ON ERROR’ FLAG} Š 
IF U6 = Ø, FUNCTION DOES NOT USE “LOOP ON ERROR” FEATURE $: 
IF U6 > Ø, FUNCTION DOES USE “LOE” AND FIRST TIME 
IF U6 < Ø, FUNCTION DOES USE ^LOE^ AND NOT FIRST TIME | A 
LOOP- 1 ; “LOOP ON ERROR’ 
NLOOP= Ø ; NOT “LOOP ON ERROR’ š 
.MACRO ESET 
LDA ΡΣ ΠΩ, ; GET FUNCTION TYPE 
MOVAU 2,6 : U6 = TYPE * 
2 
ἘΣ} ΣΣ ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΙΣΣΣΣΣΣΣΣΣΣΣΣΣΣΡΊΣΟ SE 
: 
; ERROR MACRO ΤῸ LOOP ON ERROR 
; 
s CALL SEQUENCE: 3 
; 
; ELOOP ADDRESS 
; * 
.MACRO  ELOOP 
LDA 1,@.DCOM ; GET SWR 
BITI 181 1, SZR s IF(SKIP “LOOP ON ERROR^) 2 
JMP LR ; RETURN 
MOYUA 6,0 ; ELSE, GET “LOOP ON ERROR’ FLAG 
CMPI LOOP,@,SZR > IF(.NOT. FIRST TIME) * 
JMP LES ; THEN GO “LOOP ON ERROR’ 
EMSG ^LCOP-ON-ERROR ’ 
ADC 90,0 | XnAG = =f k. 
MOVAU @,6 
LL$: jMPG «11 ; LOOP ON ERROR E 
- 
Ala CORPORATION > 


Owe 99 we we *99 we we 


`° 
`x 
“ee 
νο 
`° 
` 
`. 
`. 
` 
`. 
° 
“we 
νο 
` ° 
` 
νο 
`° 
`° 
° 
` 
`° 
` 
`. 
` ° 
`° 
~o 
`° 
`. 
` 
"eo 
νο 
`. 
~ 
`. 
"o 
νο 
` 
`° 
“ee 
9 
`. 
`° 
`° 
“ee 
"eo 
hl 
"e? 
1-9 
“ee 
^e 
"9 
"eo 
`° 
° 
`° 
`° 
` ° 
`. 
`° 
`° 
w° / 
° 
νο 
` 


ERROR MACRO TO PRINT AN ERROR MESSAGE 


CALL SEQUENCE: 
EMSG 


MACRO 
JMP 
tite 
.TXTN 


MS$- 9 


s TGT 
.IFE 
e BLK 
.ENDC 
|. TXT 


MR$= ° 


2 


00020—-020002' . EMSG: 
£0000'0569016 ERMSG: 


02001'03569012- 


90004000406 
92005'034016 
20006'03176" 
COOL? 006017 
00010 016477 
@@011 000401 


"TEXT "4,NUMBER» 


EMSG 
MC$ 


1 


1 
,ARGCT-Z 
5 


“<LF><CR>* 


.ARGCT-2 


@,UAC@,3 
1,UAC1,3 
2,UAC2,3 


.EMSG 


3,@UFP 
3,@.DCOM 
1B2,3,S5ZR 
EMLPT 
3,UFP 
2, CHTTO,3 


CPU 
.*1 


"eo ο 


ου "09 «99 wo 


~e wo woe "eo ° 


Neo wo “609 *90 «ag Vo WO o 


See we wo wo 


"69 ου ο ` ° 


"oo ο 


GOTO PRINT MESSAGE CODE 
BPNT TO MESSAGE 


START OF MESSACE 
TEXT ITSELF 

IF NUMERIC PORTION 
6-BYTE BUFFER 


TERMINATE MESSAGE 
END OF MESSAGE 


LENGTH OF MESSAGE 
IF NUMERIC PORTION 
ADDRESS OF BUFFER 


SAVE AC’S 


GET “LOOP ON ERROR’ FLAG 
IF(FLAG = -1) 

THEN RETURN 

IF NUMERIC PORTION 

GET NUMBER FROM STACK 

GET ADDRESS OF CONVERSION 
CONVERT BINARY TO OCTAL 


GET BPNT TO TEXT 

CT LENGTH OF MESSAGE 
PRINT THE MESSAGE 
RETURN 


ADDR. OF EMSG ROUTINE 
SAVE RETURN ADDRESS 

GET SWR 

IF(PRINT OUT TO CONSOLE) 


RESTORE FP 
THEN DO IT ! 


6, 


È) 


& 


τ------------------------------------------------------------------------------------------------------------- Φ 


01 006012΄056012-.ΤΜΙΡΙ: LDA 3,@.DCOM ; GET SWR 
02 P BITI 1B5,5,SNR ; IF(PRINT OUT TO LPT) 
03 @2015 000406 JMP EMRET 9 
04 20016 054016 LDA 3,UFP ; RESTORE FP 
a 05 00017 051766 LDA 2,0HLPT,S$ ; THEN DO IT ! 
Boc 00020' 006017 .SYSTM e 
Qv 00021'016477 .WRS CPU 
08 00022009401 JMP .*1 | 
09 02923'034016 EMRET: LDA 3,UFP ; RESTORE FP ΄ 
a RETSR j RETURN SUBROUTINE 
᾽ 
12 > ROUTINE TO CONVERT BINARY TO OCTAL ASCII 9 
13 ; 
14 ; CALL SEQUENCE: 
15 ; * 
16 ; AC@ = BINARY NUMBER 
17 ; AC1 = ADDRESS OF 6-BYTE BUFFER FOR OCTAL ` 
18 ; JSR@ .BOCT e 
19 ; 
| 20 .MACRO DIGIT Ë 
| δι MOVUA 4,0 ; GET BINARY NUMBER k 
| 22 MOVZR ø, ; SHIFT OUT 3 BITS Ξ 
| 25 MOVZR 2,0 E 
| 24 MOVZR 0,0 πω 
| 25 MOVAU @,4 ; PUT BINARY NUMBER | : 
| 26 ANDI 7,0 ; MASK OFF BINARY DICIT Š 
27 ADDI 66,0 ; CREATE ASCII DIGIT ka 
28 2 - 
| 29 .ZREL 
| _ 38 00001-000030^.80CT: BNOCT * 
ο: .NREL 
| 32 00030/056016 BNOCT: STA 3, @UFP ; SAVE RETURN ADDRESS 
| 33 00031'034016 LDA 3,UFP ; RESTORE FP 9 
54 MOYAU 2,4 ; U4 - BINARY NUMBER 
z MOVAU 1,5 ; US = BUFFER ADDRESS 
36 ANDI 7 ø ; MASK OFF 6TH BINARY DIGIT * 
37 ADDI 60,0 s CREATE 6TH ASCII DIGIT 
| 38 60045΄1056020 MOV 0,1 ; SAVE 6TH DIGIT 
| 39 DIGIT ; GET STH DICIT 3 
4€ 00052'1901300 MOVS 9,0 ; PACK WITH 6TH DIGIT 
41 002535”107000 ADD 9,1 | 
42 SPAIU 4.598 ; STORE DIGIT PAIR IN BUFFER 3 
45 DIGIT ; GET 4TH DIGIT 
44 00067'105000 MOV 9,1 ; SAVE 4TH DIGIT 
45 DIGIT ; GET “SRD DIGIT 3 
46 009101 101309 MOVS 9,0 ; PACK WITH 4TH DIGIT | 
47 00102'1072009 ADD 9,1 
48 STATU 1.1.5 : STORE DIGIT PAIR IN BUFFER * 
49 DIGIT ; GET 2ND DIGIT 
58 00116 ”10@5000 MOV 0,1 ; SAVE 2ND DIGIT 
51 DICIT ; GET 1ST DIGIT * 
52 00130'/191309 MOVS 90,0 ; PACK WITH 2ND DIGIT 
53 090131'/197000 ADD 9,1 a 
54 STATU 1.0.5 ; STORE DIGIT PAIR IN BUFFER 3 
55 00154/005450 JMP GUPC,3 : RETURN SUBROUTINE 
e° ~EJEC η 
- 


Ala CORPORATION / * 


| 


ENUM 


THE MAXIMUM 


"O0 we "O9 WO we We “MO we Ye WS ορ ου 


CALL SEQUENCE: 


NADDR ,NCNT 


NADDR - ADDRESS OF NUMBER STRING 
NCNT = # OF BINARY NUMBERS TO CONVERT TO OCTAL 


LENGTH OF NUMBER STRING IS 16. 


eMACRO ENUM 


JMP 
NMS ¢ ΜΠΕΣ 


NES= 


NC$ 


1 
^CLR2«CRD^ 
Q 


NL: NES-NS$*2 


I 

NCS: STA 
STA 
STA 
LDA 
MOV AU 
ULDA 
LDA 
MOVZR 


NN$ : LDAIU 
UINC 
JSRG 
MOVUA 
ADDI 
UINC 
MOV 
JMP 


Ø, Ὀλοῦ, 5 
1,UAC1,3 


o e Q zx Ole 


ERROR MACRO TO PRINT A STRING OF BINARY NUMBERS IN OCTAL 
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GOTO PRINT NUMBER CODE 
BPNT TO NUMBER STRING 
START OF NUMBER STRING 
FOR EACH NUMBER 
ALLOCATE 6-BYTE BUFFER 
TERMINATE WITH SPACES 
NEXT NUMBER 


TERMINATE NUMBER STRING 


END OF NUMBER STRING 
LENGTH OF NUMBER STRING 


SAVE AC'S 
U6 = NADDR 
U7 = -NCNT 


GET BPNT TO NUMBER STRING 
CONVERT TO ADDRESS 


GET A NUMBER 

INC NADDR 

CONVERT BINARY TO OCTAL 
RESTORE ADDRESS OF BUFFER 
INC TO NEXT NUMBER BUFFER 
INC LOOP COUNT 

CONVERT NUMBERS UNTIL DONE 


GET BPNT TO NUMBER STRING 
GET LENGTH OF NUMBER STRING 
PRINT THE NUMBER STRING 


-. ἘΝ 


i 


* 


EMT 
As αι, ο ο ο οἱ 
y 
ο ; ERROR MACRO FOR ^HALT ON FRROR 9, 
z > 
2 25 .MACRO EHALT 
8 «6 LDA 1,@. DCOM ; GET SWR e; 
ØY BITI 1B6,1,SNR 
08 JMP HR$ 
09 . EMSC ^HALT-ON-ERROR«LF»«CR»^ 9 
10 HALT 
11 .NOMAC Ø 
12 HR$- : » 
13 .NOMAC 1 
14 y 
15 ; MACRO TO WAIT FOR A KEY STROKE 9) 
16 ; 
| 17 > CALL SEQUENCE: 
18 ; s) 
19 ; WTKEY < 
20 ; AC® IS DESTROYED E 
21 ; | 3 
22 .MACRO WTKEY E 
23 . SYSTM ; WAIT FOR A KEY STROKE 3 
| 24 .GCHAR 2; 
| = ; JMP EX ; ERROR RETURN (NEVER TAKEN) À 
cue 4 > 
| 27 1 1 1.11. 
| 28 : Z 
| d ; MACRO TO PERFORM FREE FORMAT TAPE I/O E 
| 2 | » 
| @:: ; CALL SEQUENCE: 
| 3 
| 33 ; MTDIO COMMAND<,ADDRESS,COUNT> %) 
34 ; <ERROR RETURN» | 
35 ; «NORMAL RETURN» 
36 ; ΛΟσ- STATUS | | ® 
37 ; | 
58 .MACRO MTDIO 
39 STA 1,UAC1,3 |. SAVE ACI, A02 sg 
| 40 STA 2,UAC2,3 
| 41 .IFE .ARGCT-3 ; IF 5 ARGUMENTS 
42 LDA 9,-^3 ; GET DATA COUNT D 
43 LDA ση ; GET 12-BIT MASK 
44 AND 0,1 s MASK COUNT TO 12 BITS 
45 LDA 0,^2 ; GET DATA ADDRESS i 
46 . ENDC $ 
47 LDA e Ë ; GET COMMAND CODE 
48 JSRG .MTIO ; PERFORM MAG TAPE 1/0 * 
49 % 
50 ; MACRO TO DELAY “DCNT” MSECS = 
51 ; ὦ 
52 .MACRO DELAY 
53 LDA 1,=DCNT ; GET DELAY COUNT 
54 .SYSTM | DELAY » 
55 » DELAY 
fm 56 HALT ; ERROR RETURN ; 
57 % » 
58 .EJEC 
E 


00002—0001355* 


00135°956016 
20136 034403 
@0@137”15700Q0 
00140” 005400 


00141 000142” 
@0142”000152” 
00143'020202* 
00144000216” 
00145*'000153^ 
00146'000153* 
00147 °040152° 
20152^'009155* 
€0151'000155* 


200152'9062922 
€0155^124400 
20154'067922 
00155΄155120 
σ0156΄151120 
00157”071122 


g0164 063622 
@0165”000773 
00166 “060422 
€0167'0354016 
00170'941775 
20171'1011922 
20172° 900404 
00173^0314900 
00174'1514900 
22175'051499 


90202^155120 
00205^151120 
02204'071122 


92211 ”060422 


00214 "000775 
00215”000752 
02216^060422 
£0217'200750 


“OO sao WO SO «ορ WO woo we wo we «ος ` 


«MITO: 
MTIO; 


IOTBL: 


MTI01: 
MTI02: 


MTIOS: 


MTIO4: 


MTIOS: 


MTIO6: 


MTIO": 


ΜΤΙΟ8: 


CALL SEQUENCE: 


ACQ- 
AC1= 
AC2= 
JSRG 
«ERROR 
<NORMAL 
AC2- 


o ZREL 
MTIO 
e NREL 
STA 
LDA 
ADD 
JMP 


ot 1 

MTIO1 
MTIO6 
MTIO8 
MTIOZ 
MITOZ 
ΜΤΙΟΙ 
MTIOS 
MTIOS 


DOB 
NEG 
DOC 
ADDZL 
MOVZL 
DOAS 
DELAY 
SKPDN 
JMP 
DIA 
LDA 
STA 
MOVL 
JMP 
LDA 
INC 
STA 
RETSR 
ADDZL 
MOVZL 
DOAS 
DELAY 
DIA 
BITI 
JMP 
JMP 
DIA 
JMP 
.EJEC 


DATA ADDRESS 
WORD OR RECORD COUNT 


COMMAND 
.MTIO 

RETURN»? 
RETURN» 


STATUS REGISTER FOR BOTH NORMAL AND ERROR RETURN 


$,QUFP 
3, 10TBL 
2,3 

QZ ,3 


TA 


t) iN => = S 


„M 
d 
2 
2 
2,MTA 
MTA 
MTIO4 


Q,MTA 
5,UFP 


0 ,UACO,3 
06,976 


BSc 


9 
2,UPC,3 
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; ROUTINE TO PERFORM FREE FORMAT TAPE 1/60 


SAVE RETURN ADDRESS 

GET ADDR. OF I/O TABLE 
INDEX INTO TABLE WITH COMMAND 
DISPATCH TO FUNCTION 


ADDRESS OF I/O TABLE 
READ 

REWIND 

READ STATUS 

SPACE FORWARD 

SPACE BACKWARD 
WRITE 

WRITE EOF 

ERASE 


LOAD MEMORY ADDRESS COUNTER 
NEGATE AND LOAD WORD COUNTER 


BUILD AND ISSUE COMMAND TO MA 


DELAY (GIVE DMON A CHANCE TO 
WAIT FOR COMPLETION OF COMMAN 


READ STATUS 

GET FRAME POINTER 
RETURN STATUS TO CALLER 
IF ERROR BIT SET 

THEN GO RETURN 

UPC = UPC + 1 


RETURN TO CALLER 
BUILD AND ISSUE COMMAND 


WAIT FOR REWIND COMPLETE 


GO RETURN TO CALLER 
READ STATUS 
GO RETURN TO CALLER 


4 τ 
V6sr9-0i I/SALNSUTY: 


G TAPE 
RUN) 
D 


ο 
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28M 
.ZREL 
00005-009003—p AT: Š ; PATTERN TABLE 
9e0004—-155555 PAT1 2 
00905-125252 PAT2 
09026-052525 PATS 
00007—000000 PAT4 2 
22010-17777 PATS 
30011-010765". BUFF: BUFF ; ADDRESS OF I/O BUFFER 2 
; ) 
. NREL 
MTD: UI 5,1000 ; INTIALIZE USER STACK m 
00252'021367 LDA %,CHTTO,2 ; COPY CHANNEL FOR TTO 7 
002535041767 STA %,CHTTO,3 
00234^021366 LDA Q,CHLPT,2 ; COPY CHANNEL FOR LPT | 
00255΄041766 STA @,CHLPT,3 2 
30236 “060277 INTDS ; DISABLE INTERRUPTS 
σ0255΄020052-- LDA 0,-40 j GET MAG TAPE PRIORITY MASK | , 
00240040005 STA Ø, . ΟΜΞΚ ; DISABLE MAG TAPE INTERRUPTS 2 
00241'060177 INTEN ; ENABLE INTERRUPTS s 
i ESET NLOOP ; SET NOT “LOOP ON ERROR’ on 
, ^S 
EMSG "MAG  TAPE DIAGNOSTIC FOR “SMART’_ CONTROLLER<12>< 
; s 
00307 1902490 SUB "M ; RESET PASS COUNT 2% 
060516΄641765 STA Q,PASCT,3 A 
203511'030012-MTDRS: LDA 2, .DCOM ; GET ADDRESS OF COMMON BLOCK ^s 
00312'021004 LDA 0,4,2 ; GET # OF SUBTESTS | 
00515΄1ᾳ060400 NEG 0,0 ; SET LOOP COUNT | 
MOVAU 2,4 ; UAC4 = -DNTST D 
00315'021095 LDA 0,5,2 ; GET ADDR. OF SUBTEST ENTRY POINT TA 
MOVAU — 2,5 j UAC5 = DSENT Se 
3 
MTDLP: LDAIU  2,0,5 ; GET SUBTEST ENTRY POINT 
00321'101103 MOVL Ø, Ø SNC ; IF(RUN FLAG IS RESET) L Κα 
00322'000407 JMP MTDSK ; SKIP SUBTEST | 3 
00323'101220 MOVZR 6,9 ; MASK OFF RUN FLAG | 
00324040404 STA ®,MTDST ; SET UCALL ADDRESS " 
003525'021767 LDA @,CHTTO,3 ; GET CHANNEL FOR CONSOLE OUTPUT ° 
00326'025766 LDA 1,CHLPT,3 ; GET CHANNEL FOR LINE PRINTER 
00327 0060025 JSRE CFRM ; UCALL SUBTEST " 
003350'000090 MTDST: Ø ; UCALL ADDRESS 3 
MTDSK:  UINC 5 ; INC TO NEXT SUBTEST 
UINC 4 ; INC LOOP COUNT ^ 
90337 “151904 MOV 2,2,82R ; RUN ALL SUBTESTS 2 
20340 000757 JMP MTDLP 
00341'021765 LDA @,PASCT,3 ; INC PASS COUNT > 
003542'101400 INC 0,0 
00545΄041765 STA ®,PASCT,3 zi 
00344'022012- LDA 9,0. DCOM ; GET SWR ) 
BITI 1B4,0,SNR ; IF(.NOT. PRINT PASS COUNT) 
003547 000742 JMP MTDRS ; THEN RESTART n 
, 
EMSG “PASS COUNT. ^ ,PASCT 
? 
00403'009706 JMP MTDRS ; RESTART DIAGNOSTIC > 
.EJECT 
- 
Ala CORPORATION 


| 


COMMON BLOCK 


00404'0000090 DCOM: Ø 


00405'e00229* MTD 
90406'007273* PERR 
00407 0074467 PSTAT 
g041@ @@Q010 8. 
00411 000413” STENT 
00412'000423* STNAM 
.ZREL 

00012-00044". DCOM: DCOM 

; 

3 

3 

; SUBTEST ENTRY POINTS 

3 

. NREL 

00415'000601^/STENT: MTD@01 
20414001317” MTDØ2 
0415001563” MTDØZ 
20416'002706^* MT D04 
$0417 °203374° MTDS5 
00420 0043247 MTD@6 
00421'005552^* MTD? 
$@422° 006043" MTD28 


“we wao wo WO wo 


SUBTEST NAMES 


20423” 201066" 'STNAM: NAM£1*2 


00424* 601106" 
00425” 0901132" 
00426* 0011627 
00427 * 601216" 
00450 “001260” 
00431” 201330" 
00452'001356" 


NA MØ2*2 
NAM@3*2 
NAM@4*2 
NA M25*2 
NAM06*2 
NAM@?7*2 
NA M@8*2 


@@24537046117 NAM@1: .TXT 
004435'0551901 NAMZ2: .TXT 
00455'941125 NAM0@3: .TXT 
£0471'044516 NAM@4: .TXT 
00597'9055522 NAMO5: .TXT 
00530041117 NAM26: .TXT 
00554^04251"7 NAM": .TXT 
00567'051105 NAM28: .TXT 


0000900 


.NOLOC 


; DSWR 
; DENT 
; DERR 
; DSTAT 

; DNTST 
; DSENT 
s DNAME 


; ADDRESS OF COMMON BLOCK 


; LOOP BACK 

y VALID STATUS 
; BUSY/DONE 

> INTA 

; WRITE PROTECT 
; BOT/REWIND 

3 EOF 

3 RELIABILITY 


“LOOP BACK ?77?<CR>’% 

“VALID STATUS ????«CR»* 

^BUSY/DONE (ERASE) ????«CR»^ 

“INTERRUPT ACKNOWLEDGE ????«CR»5^* 

“WRITE PROTECT/ILLEGAL/READY ????«CR»* 
^BOT/REWIND/SPACE BACKWARD/ILLEGAL ????«XCR»^ 
“BOF/WRITE/READ ????<CR)> 

"RELIABILITY ????<CR)> 

0 
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[5] | A CORPORATION 


"eo 


στο MTD 
ο ; LOOP BACK TEST 
, 
93 s USUBR — MTD21,2 ; ENTRY POINT, 2 TMPS 
04 22601 941767 STA %,CHTTO,3 ; SAVE CHANNELS 
95 006€2'€45766 STA 1,CHLPT,3 
ë ο6 ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
a EMSG “RUN. LOOP_ BACK. TEST’ 
, 
09 00633/060222 NIOC MTA ; CLEAR MAG TAPE 
19 20634'030035- LDA 2,=20 ; SET LOOP BACK MODE 
11 09635'0"719022 DOA 2,MTA 
12 00636'152499 SUB nop ; WRITE ALL ZERO” S 
15 UCALL M1SUB 
14 Q@Q@641 7152000 ADC 2,2 ; WRITE ALL ONE S 
15 UCALL M1SUB 
16 00644'1525290 SUBZL 2548 ; WRITE EACH BIT - ONE 
17 M1LOP: UCALL  MiSUB 
18 00647'151123 MOYZL 2,2,SNC 
19 00650 000775 JMP M1LOP 
20 ; 
21 020651'022912- LDA Ø, @. DCOM ; CET SWR 
22 BITI 187,0,SNR ; IF(.NOT. PRINT PASS) 
23 €0654'000432 JMP MIRET ; THEN RETURN | 
24 EMSC ^COMPLETE  LOOP BACK TEST’ | 
25 MIRET: URET 
26 ; 
27 ; LOOP BACK SUBROUTINE 
28 ; 
29 177765 SDAT= CHLPT-1 ; DATA SENT 
30 177764 RDAT-  JSDAT-1 ; DATA RECEIVED 
31 ; 
52 USUBR M1SUB,4 ; ENTRY POINT, 4 TMPS 
33 00710'041767 STA 0,CHTTO,3 š SAVE CHANNELS 
34 00711'045766 STA 1,CHLPT,3 
35 00712'951765 STA 2,SDAT,3 ; SAVE SEND DATA 
36 ESET LOOP ; SET “LOOP ON ERROR’ 
$7 ; 
38 @@715°@31765 ΜΙ5ΙΡ: LDA 2,SDAT,3 ; RESTORE SEND DATA 
39 00716'072022 DOB 2,MTA ; SEND ON DOB 
40 090717'073022 DOC 2,MTA ; SEND ON DOC 
41 DELAY ; 
42 00724'061422 DIB Q,MTA ; RECEIVE ON DIB 
45 00725'112415 SNE 90,2 ; IF MATCH 
44 00726'000572 JMP M1SC ; THEN GO RECEIVE DIC 
45 00727'9041764 STA ®,RDAT,3 ; PUT RECEIVE DATA ON STACK 
46 EMSG “DATA. SENT ON DOB - “%,SDAT 
47 EMSG “DATA RECEIVED ON DIB =_ “,RDAT 
48 ELOOP ΜΙ5ΙΡ 
49 EHALT 
5g 000060 
51 001129'HR$226- . 
52 
55 €1120°@31765 M1SC: LDA 2,SDAT,3 ; RESTORE SEND DATA 
54 91121°962422 DIC Q,MTA ; RECEIVE ON DIC 
55 01122'112415 SNE 0,2 ; IF MATCH 
- 56 01123'000572 JMP MiSRT : THEN GO RETURN 
0: .EJEC 


5] | a CORPORATION 
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9 


9 


. 
I 


3: 
σι 01124'041764 


02 


2000990 


201515'HR$92vV- 


177765 


91317041767 
g@1520 7045766 


01353'060222 


013671250905 
91378 000531 
01371'041765 


0009009 


001521 “HR$93H= 


1526 ° 209433 


01565'04176"7 
$1564°045766 


002220. 
001753“ HR$047= 


M1SRT: 


3 


» VALID 


, 
STAT- 


3 
61556΄060422 M2LOP: 
91357 °024041- 
61560΄124000 
4 0153617123480 
01362'024042- 


3 
M2ZVAL: 


91523°822012- 


M2RET: 


"oo WO < 


; 
01623'060222 MSLP1: 
21624'0635622 
0162509006526 


BUSY/DONE (ERASE) TEST 


STA Q,RDAT,5 ; PUT RECEIVE DATA ON STACK 
EMSG DATA SENT ON DOC = ^,SDAT 

EMSG “DATA RECEIVED. ΟΝ DIC =  ^,RDAT 

ELOOP MiSLP 

EHALT 

URET ; RETURN 

STATUS TEST 

CHLPT-1 ; INVALID STATUS 

USUBR  MTD22,35 ; ENTRY POINT, 3 TMPS 

STA 9,CHTTO,3 > SAVE CHANNELS 

STA 1,CHLPT,3 

ESET NLOOP ; SET NOT “LOOP ON ERROR 
EMSG “RUN VALID STATUS TEST’ 

NIOC MTA ; CLEAR MAG TAPE 

ESET LOOP ; SET “LOOP ON ERROR’ 

DIA O,MTA ; READ STATUS 

LDA 1,=SBOT ; BOT FLAG IS A "DON T CARE” 
COM 191 

AND 1,2 

LDA 1,=4101 ; GET VALID STATUS 

XOR 9,1 ; TURN OFF ALL THE BITS 
MOV 1,1,SNR ; IF(VALID STATUS) 

JMP M2VAL ; THEN GO RETURN 

STA @,STAT,3 ; PUT STATUS ON STACK 
EMSG "INVALID. STATUS’ ΞΡ’ STAT 

ELOOP M2LOP 

EHALT 

ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
LDA %,@.DCOM ; GET SWR 

BITI 1B7,0,SNR ; IF(.NOT, PRINT PASS) 
JMP M2RET ; THEN RETURN 

EMSG ^COMPLETE VALID STATUS TEST’ 

URET 


USUBR MTD@3,2 ; ENTRY POINT, 2 TMPS 
STA @,CHTTO,3 ; SAVE CHANNELS 

STA 1,CHLPT,3 

ESET NLOOP ; SET NOT “LOOP ON ERROR 
EMSG ^RUN  BUSY/DONE  (ERASE) TEST’ 

ESET — LOOP ; SET “LOOP ON ERROR^ 
NIOC MTA ; CLEAR MAG TAPE 

SKPDN MTA ; IF(DONE = ZERO) 

JMP M3B1 ; THEN GO TEST BUSY 

EMSG ‘NIOC_ DID NOT CLEAR DONE FLAG’ 

ELOOP M3LP1 ji 

EHALT 

HIRO 
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01753'063422 
91754° 208526 


0029009 


002102'HR$94K- 


MSB1: 


02102'020025-M31P2: 


6ρ105΄105120 
e2104^'101129 
02105'9061122 
22196'063522 
02107009525 


202909009 


002254'HR$904X- 


02254'063622 
02255΄6060521 


000000 


082356" HRS@5A= 


H 
MSD1: 


3 
$2356 °G24G435-M3WAT: 


02357 “926017 
g236@ 010400 
$2361 “263077 
02362° 063422 
02363“ “000531 


7121717102}, 


002514'HR$905N- 


02514'063722 
$2515 ° 200530 


29090909 


9002645'HR$9690- 


0264" '022012- 
g@2652 000432 


M3D2: 


’ 
M3PAS: 


MSRET 


SKPBN 
JMP 
EMSG 
ELOOP 
EHALT 


SKPDN 
JMP 
EMSG 
ELOOP 
EHALT 


e 


MTA ; IF(BUSY = ZERO) 
MSLPZ ; THEN GO START MTA AND TEST A AIN 
^NIOC, DID, NOT CLEAR BUSY FLAG’ & 
M3LP1 
Š 
Q,-MTERS ; GET ERASE COMMAND & 
ane ; BUILD AND ISSUE COMMAND 
Ø, MTA δ 
MTA ; IF(BUSY - NONZERO) 
M3D1 ; GO TEST DONE - ZERO 
΄Ρ0ΟΑ5. DID NOT SET BUSY ΞΊΑΘ΄ = 
M3LP2 
& 
MTA ; IF(DONE = ZERO) = 
M3WAT ; THEN GO WAIT FOR 2 SEC E 
^DOAS SET DONE FLAG’ : 
M3LP2 & 
e 
1,729000. ; GET 2 SEC COUNT 
| DELAY 2 SEC è 
; ERROR RETURN 
MTA ; IF(BUSY = ZERO) E 
M3D2 ; GO TEST DONE = NONZERO 
^ERASE COMPLETE DID NOT CLEAR BUSY’ 
MSLP2 e 
é 
MTA ; IF(DONE = NONZERO) 
M3PAS ; THEN PASS TEST 
‘ERASE COMPLETE DID NOT SET DONE’ ° 
M3LP2 
é 
NLOOP ; SET NOT “LOOP ON ERROR’ e 
0,G.DCOM ; CET SWR 
187,0,SNR > IF(.NOT. PRINT PASS) 
MSRET ; THEN RETURN e 
“COMPLETE BUSY/DONE. TEST” 
ISI 
@ 
Φ 


AJA PN | 


| 


if 


σ1 ; 
τ ; INTERRUPT ACKNOWLEDGE TEST 2 
; ) 
04 177765 DEVCD- CHLPT-1 ; DEVICE CODE 
ë ° [BAIN SENTE ; RTOS INTERRUPT SERVICE ADDRESS š 
N 3 s 
07 R USUBR MTD04,3 ; ENTRY POINT, 3 TMPS 
σα 2706041767 STA @,CHTTO,S > SAVE CHANNELS 
Qo 02707'045766 STA 1,CHLPT,3 - 
10 ESET NLOOP ; SET NOT “LOOP ON ERROR 
11 EMSG “RUN. INTERRUPT ACKNOWLEDGE TEST’ 
12 02746'060277 INTDS ; DISABLE INTERRUPTS $ 
13 02747'062677 IORST ; I/O RESET 
| 14 02750΄0200532-- LDA @ ,=40 ; GET MAG TAPE PRIORITY MASK 
| 15 02751224905 LDA 1,.CMSK ; GET RTOS CURRENT MASK | 9 
16 XOR 9,1 ; OR OUT MAG TAPE MASK 
17 02756'066977 MSKO 1 ; ENABLE MAC TAPE INTERRUPTS | 
18 02757 004407 JSR M4SUB ; START MTA AND RTC @ 
| 19 22760'030431 LDA 2,M4IS1 ; GET ADDRESS OF INT. SRV. x 
| 20 02761΄6050001 STA 2.1.0 ; SET INTERRUPT VECTOR Ε 
21 92762°969177 INTEN ; ENABLE INTERRUPTS Ὁ. 
22 02763'000400 JMP š ; WAIT FOR INTERRUPT = 
23 O2764°202401 JMPG oti ; GO MASK OUT MTA AND TRY AGAIN E 
24 02765'0035221^ M4MSK & 
25 
26 M4SUB: SAVE ; SAVE MACHINE STATE Š 
| 27 02773'030925- LDA 2,-MTERS ; BUILD AND ISSUE ERASE COMMAND 49 
| 28 02774'153120 ADDZL 2,2 | ? 
29 @2775”151120 MOVZL 2,2 | 
30 92776'071122 DOAS 2,MTA $ 
31 02777'063622 SKPDN MTA ; WAIT FOR COMPLETION OF ERASE 
32 23200 O00777? JMP .—1 
| 33 03001” 060114 NIOS RTC ; START RTC $ 
| 34 03022'063614 SKPDN RTC ; WAIT FOR FIRST TICK | 
35 23003” 000777 JMP .-1 
36 03204'069114 NIOS RTC ; RESTART CLOCK e 
37 RETSR ; RETURN SUBR UTINE 
58 
59 93011°903012°M4IS1: .*1 ; ADDRESS OF INTERRUPT SERVICE e 
40 039012'/030596 LDA 2,MARIV ; RESTORE RTOS INTERRUPT VECTOR 
41 03013°250001 STA 2,1,0 
42 03014'0190999 ISZ 0,0 ; INC. INTERRUPT P.C. E 
43 05015/061477 INTA 0 ; INTERRUPT ACKOWLEDGE 
44 €2016'062677 IORST s 1/0 RESET 
45 CMPI MTA,@,SNR s IF(MTA CAUSED INTERRUPT) 9 
4€ 03921'/0020900 JMPG 2,0 ; THEN SUCCESS, RETURN FROM INT. SRV 
47 CMPI RTC,@,SZR ; IF(RTC CAUSED INTERRUPT) | 
48 03024'009475 JMP M4ER1 e 
49 03025 060177 INTEN ; THEN FAILURE, ENABLE INTERRUPTS 
50 EMSG “MAG. TAPE DID NOT GENERATE INTERRUPT’ 
51 EHALT e 
52 €o0000 
55 003117/HR$96M- . 
54 23117'090509 JMP M4RT1 ; GO RETURN FROM SUBROUTINE 9 
55 .EJEC 
9 e 
@ 


[5 ΕΙ CORPORATION @ 
! r, 


92 
05 
g4 
05 
26 
O7 
28 
29 
12 
11 
12 
15 
14 


δι @3122° 277777 MARIV:  .INTP 
05121'060177 M4ER1: INTEN 
g5122 041765 STA 
EMSG 
EHALT 
ᾳοσσος 
905217 HRŠQ6S= . 
0@3217?“@0@@553 MART1: JMP 
035220 002766”. M4SUB 
05221'030032- -MAMSK : LDA 
03222072077 MSKO 
03223 006775 JSRG 
032240390405 LDA 
05225΄050001 STA 
03226'060177 INTEN 
035227009490 JMP 
03232000473 JMP 
05231'005232'M4AIS2: .+1 
23232" 32666 LDA 
03233 050001 STA 
03234"010000 192 
03255'061477 INTA 
03256'062677 IORST 
CMPI 
23241'002€00 JMPG 
03242'060177 INTEN 
EMSG 
EHALT 
09020990 
@05322 HR$0@6Z= . 
03322°620450 JMP 
$3323°060114 M4PAS: NIOS 
03324'2690177 INTEN 
ES ET 
23327” 022812- LDA 
BITI 
23332" 000440 JMP 
EMSG 
MARET: URET 
.EJEC 


RTOS INTERRUPT VECTOR 


- 


; ELSE, FAILURE, ENABLE INTERRUPTS® 


@,DEVCD,5 ; PUT DEVICE CODE ON STACK 
“WRONG ΜΙΝΙ. DEVICE CODE =_  ',DEVCD » 
MARET ; GO RETURN FROM SUBROUTINE ° 
2 ,=40 ; MASK OUT MAG TAPE ë 
2 
.M4SB ; START MTA AND RTC | * 
2 ,M4IS2 ; GET ADDRESS OF INTERRUPT SERVICE® 
274.0 ; SET INTERRUPT VECTOR 
; ENABLE INTERRUPTS 4i 
1 ; WAIT FOR INTERRUPT j 
MAPAS ; CO REPORT PASS : 
; ADDRESS OF INT. SRV. = 
2,M4RIV ; RESTORE RTOS INTERRUPT VECTOR E 
2,1,9 E 
2,0 ; INC. INTERRUPT P.C. e 
0 ; INTERRUPT ACKOWLEDGE 
; I/O RESET ° 
MTA,@,SZR ; IF(MTA DID NOT CAUSE πο M 
€, ; THEN SUCCESS, RETURN FROM INT. SRY 
ELSE, FAILURE, ENABLE INTERRUPTS 
“MASK Οὔτ. FAILURE” è 
| e 
MARET š GO RETURN FROM SUBROUTINE 
RTC ; START RTC $ 
; ENABLE INTERRUPTS 
NLOOP ; SET NOT “LOOP ON ERROR’ 
Ø, @. DCOM ; GET SWR e 
187,0,SNR ; IF(.NOT. PRINT PASS) 
MARET ; THEN RETURN 
“COMPLETE INTERRUPT. ACKNOWLEDGE TEST’ $ 
6 
@ 
9 
IS 
@ 
ə 


, 
: WRITE PROTECT/ ILLEGAL/ READY TEST š 
, 
ὃν 177775 MSTAT= UACØ ; MAG TAPE STATUS ON THE STACK 
H 
C ΧΕ USUBR MTDO5,2 ; ENTRY POINT, 2 TMPS | 9 
Qv 05374'041767 STA @,CHTTO,S ; SAVE CHANNELS 
98 03375°045766 STA 1 CHEPT. S 
29 ESET NLOOP ; SET NOT “LOOP ON ERROR’ 2 
12 EMSG “RUN: WRITE  PROTECT/  ILLECAL/ READY TEST’ 
11 ; | 
12 EMSG ^REMOVE TAPE CARTRIDGE’ € 
15 03470'060222 NIOC MTA | 
14 03471” 060422 DIA Q,MTA 
15 93472'1901212 MOVR# @0,0,SZC ; WAIT FOR “UNIT READY’ TO GO LOW ὦ 
16 €3473'090776 JMP .—2 | 
17 ; 
18 03474'024045- LDA 1,=1000. ; DELAY 1 SECOND < 
19 03475'006017 s SYSTM S 
20 05476'0190400 . DELAY Ξ 
21 0347"7^0630'77 HALT < 
22 ; ο 
25 EMSG ^WRITE PROTECT_ TAPE AND RE-INSERT' E 
24 03535'060422 DIA Q0,MTA e 
25 $3536°181213 MOVR# — 0,0,SNC ; WAIT FOR “UNIT READY TO GO HIGH £ 
26 03537'000776 JMP .-2 š 
27 ; | €: 
28 BITI SLOCK ,@,SZR ; TEST ‘WRITE PROTECT’ HIGH T 
29 03542'0900477 JMP M5WR ; PASS, GO WRITE AND TEST E. 
50 EMSG “TAPE DID NOT BECOME PROTECTED:  ^,MSTAT < 
e EHALT ! 
v ορ 2090900 | 
55 @03641 HRŠ0Q7L= . $ 
34 ; 
35 M5WR: MTDIO  MTWR,.BUFF,4296. A 
36 03651^'000477 JMP M5WR1 ; ERROR RETURN € 
37 EMSG ‘WRITE. DID NOT: SET "ERROR" TFLAG:: ^,MSTAT 
58 EHALT | 
59 000990 € 
40 @@375@ HR$@7S= . 
41 ; 
42 MSWR1: - 
43 200060 1 ΕΝ 0 Ἢ ή | 
44 BITI SILGL,0.S2R ; TEST “ILLEGAL FLAG HIGH 
45 JMP M5WR2 > PASS ` y d 
46 EMSG ^WRITE DID NOT SET "ILLEGAL FLAG:  ^,MSTAT 
47 EHALT | 
48 .ENDC ° 
49 .EJEC 
e 
@ e 
€ 


g1 
02 
035 


05754.'000477 


0000990 


004055'HR$972- 


20009090 


94057 “090477 


000000 


904156 HR$086= 


0009000 


24206 ° 060422 
04207'101212 
04210 000776 


04246 060422 
g4247”101213 
04252'0909776 


04253'0229012- 


g4256 000444 


M5WR2: 


? 
M5WRS: 


; 
M5ER: 


; 
MSER1: 


3 
M5PAS: 


° 
7 


MSRET: 


MTDIO 
JMP 
EMSG 
FHALT 


e IFN 
BITI 
JMP 
EMSG 
EHALT 
. ENDC 


MTDIO 
JMP 
EMSG 
EHALT 


MTWRE 
M5WR3 
“WREOF_ DID_ 


Ø 
11.01.0578 
M5ER 

^WREOF DID. 


MTERS 
M5ER1 
^RRASE DID. 


0 
SILCL,2,S2R 
MSPAS 

“ERASE DID. 


“REMOVE. TAPE. CARTRIDGE’ 


Q,MTA 
2,0,S9Z2C 
oe 


“WRITE ENABLE. 


Q,MTA 
O, Ø, SNC 
seg 


NLOOP 
0 ,G .DCOM 
1B7,0,SNR 
M5RET 
“COMPLETE _ 


[] 
) 


5 
NOT_ 


NOT_ 


"eo wo 


NOT. 


9 
° 


9 
NOT. 


3 


° 
? 


seo "49 Ὃυ wo 


WRITE_ 


TAPE AND  RE-INSERT’ 


WRITE EOF 
; ERROR RETURN 


SET '"SRROR . PLAG: μοι 


TEST "ILLEGAL" FLAG HIGH 
PASS 


e 


é 


SET "ILLEGAL" FLAG: ^,MsTAT € 


ERASE 
ERROR, RETURN 


SEP "ERROR FLAG: MSTAT 


TEST "ILLEGAL  FLAC HIGH 
PASSUA Š 
SETS? ILLEGAL μας ^,MST 


WAIT FOR “UNIT READY” TO GO 


WAIT FOR 'UNIT READY' TO GO 


SET NOT “LOOP ON ERROR’ 
GET SWR 

IF(.NOT. PRINT PASS) 
THEN RETURN 


PROTECT/ ILLEGAL/ READY  TEST' 


Low € 
| € 
HIGH 

© 


Φ 


, 
; BOT/ REWIND/ SPACE BACKWARD/ ILLEGAL TEST à 
, 
x USUBR MTD06,2 ; ENTRY POINT, 2 TMPS 
204524'041767 STA Q,CHTTO,S$ s SAVE CHANNELS 
04525΄ 045066 STA 1,CHLPT,3 ° 
ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
EMSG “RUN. BOT/_ REWIND/ SPACE BACKWARD/_ ILLEGAL, D. 
, | 
^ EMSG “REMOVE. TAPE CARTRIDGE’ 
04424 “060222 NIOC MTA 
24425 962422 DIA Q,MTA é 
04426'1901212 MOVR4& — 2,0,S2ZC ; WAIT FOR “UNIT READY’ TO GO LOW 
@4427 000776 JMP .-2 κ. 
94432 °024045- LDA 1,-1000. ; DELAY FOR 1 SECOND € 
04451096917 .SYSTM 
04432'0104909 .DELAY 
04455'063077 HALT ° 
EMSG ‘WRITE  FNABLE TAPE AND  RE-INSERT^ š 
@4471 060422 DIA Q,MTA A Š E EZ 
€4472'101213 MOVR# — 0,0,SNC ; WAIT FOR “UNIT READY’ TO GO HIGH@®: 
04475'0900776 JMP 52 E 
7 z 
24474030053- LDA 2,=2 ; SET LOOP COUNT ° 
04475^150490 NEG D n s 
MOVAU 2,4 ; USE U4 Š 
M6LOP: MTDIO  MTERS ; ERASE TO MOVE OFF BOT e: 
045035'063077 HALT ; ERROR RETURN ü 
UINC 4 ; INC LOOP COUNT i 
04507 151004 MOV 2 εδ ; LOOP UNTIL DONE e 
24510'000767 JMP M6LOP 
5 
| BITI SBOT ,O,SNR ; TEST "BOT" FLAG LOW e 
04513090477 JMP M6 TRW ; PASS, GO TEST "REWINDING' 
EMSG ^gRASE DID NOT RESET "B80T" FLAG:  ^,MSTAT 
EHALT °@ 
000900 
004612'HR$991-2 . 4 
; @ 
MOTRW: BITI SRW,@ ,SNR ; TEST "REWINDING" FLAG LOW 
04614'000503 JMP M6RW J ; PASS, GO REWIND | 
EMSG ^"REWINDING" FLAG 15 SET BEFORE COMMAND: | ^, MØTA 
EHALT 
0009000 : 
004717'HR$998-7 , @ 
, 
04717/020037—M6RW: LDA Q ,-MTRW ; GET REWIND COMMAND 
Q4720'103120 ADDZL 2,0 ; BUILD AND ISSUE COMMAND @ 
94721°101120 MOVZL 2,0 
94722'061122 Q,MTA 
; WAIT FOR /SMART^ CONTROLLER e 
4727 “060422 Q,MTA ; GET MAG TAPE STATUS 
BITI SRW,@,SZR > TEST "REWINDING" FLAG HIGH | 
g4732 000506 JMP M6WT ; PASS, GO WAIT FOR COMPLETION e 
EMSG ‘REWIND COMMAND DID NOT. SET  "REWINDING"  FLAG:_ 
EHALT » 
πο. ) 
995040 HR50 σος, 7 Q E 
@ 


im | m CORPORATION 


C] 


21 
ΟΖ 


94 


3504700595 


200000 


005154^BgR$99N- 
; 


M 
05156'e00501 


2000000 


2905257"HR$99U- 


05267 “080501 


000000 


005370'HR$9A1- 


05372° 099592 


2009000 


005474'HR$0A8- 


95476'022€12- 
05521009044" 


, 
@5240 024043-M6WT: 
05 05041'€06917 
95%42° 810499 
$5043 “0635077 
95044066422 


STBT è 


3 
M6S BW: 


9 
M6ER1: 


3 
M6PAS: 


MORET: 


22009. 


Q,MTA 
SRW,%,SNR 

M6T BT 

“REWIND. DONE D 


SBOT,2,S2R 
MGS BW 
^REWIND DONE D 


MTSBW,.BUFF,1 
M6ER1 
"SPACE BW DID. 


SILGCL,0,SZR 
M6PAS 
“SPACE. BW DID. 


NLOOP 
Q,G .DCOM 
1B7,0,SNR 
M6RET 


“COMPLETE BOT/_ 


; DELAY 2 SECONDS 


ë 
; GET MAG TAPE STATUS e 
; TEST "REWINDING" FLAG LOW 
; PASS, GO TEST "BOT ο ο 
ID NOT CLEAR "REWINDING" FLAG: 
é 
; TEST "BOT. FLAG HIGH I 
; PASS, GO SPACE BACKWARD $ 
ID NOT SET "BOT" FLAG: ^,MSTAT 
; SPACE BACKWARD 1 RECORD e. 
; ERROR RETURN | p E 
NOT SET "ERROR" FLAG: _ MBTAT 
; TEST “ILLEGAL FLAG HIGH 1 
; PASS ç Ë | 
NOT SET "ILLEGAL" FLAG:  ^|,Ms16T 
e 
; SET NOT “LOOP ON ERROR’ | 
; GET SWR e 
; IF(.NOT. PRINT PASS) | 
; THEN RETURN w 
REWIND/ SPACE BACKWARD/_ ILLECA@_ 
@ 
@ 
e 
e 
ω 
@ 


υπ... 


| 


9 κο MM ος 5 ML M MM ον d» 
61 ; 


02 ; EOF TEST 
05 j 
94 USUBR 
65 05552'041767 STA 
626 ?5555'045"766 STA 
Q7 ESET 
28 EMSG 
09 
10 €5601'060222 NIOC 
11 MTDIO 
12 95606°900491 NOP 
15 BITI 
14 05611” 000476 JMP 
15 EMS G 
16 EHALT 
1" 200009 
18 @95707°HRSOAR= . 
19 
20 M7ERS: MTDIO 
21 05713'0900401 NOP 
22 BITI 
23 05716'0900467 JMP 
24 EMSG 
25 EHALT 
26 000000 
27 006005'HR$90AZ-2 . 
28 ; 
29 M7PAS:  ESET 
320 06007'022912- LDA 
| 31 BITI 
C" 32 06012'0900427 JMP 
33 EMSG 
34 M7RET: URET 
25 .EJEC 


MTDOT ,2 
@,CHTTO,3 
1,CHLPT,5 
NLOOP 


"eo ° 


; 
“RUN FOP TEST’ 


MTA 
MTWRE 


SEOF,0,52R 
M7 ERS 


200 wo ^99 we 


^WREOF DID NOT. 


MTERS 


SEOF,0,SNR 
M7 PAS 


sao oo wo wo 


“ERASE. DID NOT. 


NLOOP 
9,8 .DCOM 

187,0 ,SNR 

M7RET 
“COMPLETE EOF. 


ΕΞ 99 wo wo wo 


é 
ENTRY POINT, 2 TMPS | 
SAVE CHANNELS 
& 
SET NOT “LOOP ON ERROR’ 
e 
WRITE EOF E 
ERROR RETURN e 
TEST "EOF" BIT HIGH | 
‘BOR FLAG: .^$MSTAT $ 
é 
ERROR RETURN e. 
TEST "EOF" BIT LOW E 
"ROP" FLAG’ e 
9 
SET NOT “LOOP ON ERROR’ à 
IF(.NOT. PRINT PASS) 
THEN RETURN 
e 
e 
e 
° 
@ 
Φ 
e 
e 
e 


@ 
Ες 


11 
12 
15 
14 
19 
16 


18 


177765 
000090 
000091 
000002 
0090035 
2000004 


00915-2000000 
0€9014-000900 
009015-0900000 
009016—9090000 
90001"7-00€000 


29021—-0190761^* 
QCo022—-00€009 


06043^041767 
06044'045"766 


26076'060222 


06105'063077 
06194°921767 
26195'230020— 
06126'0529022- 
06107152400 
26112'250015- 
06111'0529014- 
06112 ”050015- 
@6113”050016- 
96114^050917- 
$6115°@51765 


06152'0992491 
06135'000412 


06144'0900401 
06145'92176"7 
06146΄ 0591765 


06151/151400 
06152 051765 
06155'9007 43 


9 ος ου 


? 

FILCT- CHLPT-1 
EFILE- @ 
ERTRY= 1 

EPAT= 2 
ESTAT= 3 
ESLEN= 4 


ΝΕΡΟ: Ø 
NWERP: @ 
NWERF: 0 
NRERP: @ 
NRERF: @ 


17 009029—-997761'SBGN: SBUFB 


SEND: SBUFE 
SPNT: Q 


.NREL 
USUBR 
STA 
STA 
ESET 
EMSG 
NIOC 
MTDIO 
HALT 
LDA 
LDA 
STA 
SUB 
STA 
STA 
STA 
STA 
STA 
STA 


M8LOP: UCALL 
MTDIO 
NOP 
BITI 
JMP 
MTDIO 
NOP 

M8RDP: LDA 
LDA 
UCALL 
INC 
STA 
JMP 


RELIABILITY TEST 


MTD@8 ,3 
@,CHTTO,3 
1, CHLET ὁ 
NLOOP 


) 
“RUN. RELIABILITY. 


MTA 
MTRV 


2,CHTTO,3 
2,SBGN 
2.9PNT 
2.8 
2,NREC 
2,NWERP 
2,NWERF 
2,NRERP 

2 ,NRERF 
μποτ.” 


WRPAT 
MTSBW,.BUFF,0 


SBOT,0,SZR 
M8RDP 
MTSTW,.BUFTF,1 


9,CHTTO,3 
2,FILCT,3 
RDPAT 

2,2 
2,FILCT,3 
M8LOP 


"eo Wo we we we wo 


«90 SO wo we Yo we 906 we 


"29 "09 we wo 


Noo wo «9 Wo WO wo WO 


9 
, 

? 

? 
° 
3 

9 
? 
9 
3 
9 
3 
9 
, 
ο 
° 
3 
" 
3 


} 


FILE COUNT (18T WORD OF EACH 


ERROR SUMMARY FILE f 
ERROR SUMMARY RETRIES 
ERROR SUMMARY PATTERN 
ERROR SUMMARY STATUS 
ERROR SUMMARY LENGTH 


TOTAL # OF RECORDS 


# OF WRITE ERRORS WITH PASS 


é 


= 


€ 
RECORD 


M 


ο. 


e 
FTER R 


# OF WRITE ERRORS WITH FAIL AFTER R 
# OF READ ERRORS WITH PASS AFTHÉ R 
# OF READ ERRORS WITH FAIL AFTER R 


BEGINNING OF SUMMARY BUFFER 


END OF SUMMARY BUFFER 


POINTER INTO SUMMARY BUFFER 


ENTRY POINT, 3 TMPS 
SAVE CHANNELS 


SET NOT “LOOP ON ERROR 
TEST’ 


REWIND MAG TAPE 

ERROR RETURN 

RESTORE CHANNEL 

SET ERROR SUMMARY POINTER 


RESET ERROR COUNTS 

# OF RECORDS 

# OF WRITE ERRORS (PASS) 
# OF WRITE ERRORS (FAIL) 
# OF READ ERRORS (PASS) 
# OF READ ERRORS (FAIL) 
FILE COUNT = @ 


WRITE PATTERN FILE 
SPACE BACKWARD 1 FILE 
ERROR RETURN 

IF (BOT) 

THEN GO READ PATTERN FILE 


ELSE SPACE FORWARD 1 RECORD 


ERROR RETURN 
RESTORE CHANNEL 
RESTORE FILE COUNT 
READ PATTERN FILE 
INC. FILE COUNT 


CONTINUOUS LOOP 


» o [1] τιν we 


j 
; CONTINUOUS LOOP: MUST BE ABORTED VIA R OR Ors 


. EJEC 


[2 | m) CORPORATION / 


e 


e 


— — i 


61 
02 
03 
04 
05 
26 
ο 
ζ8 
σθ 
10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
30 
3 

Dedi se 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


° ` 


`. 


177764 CPAT= 
177763 BRROT= 


061955΄641765 
96156 “045766 
2026157“”051765 
@6160@”102520@ 
06161'041764 


06162^'0500 03-WRPLP: 
061635'921764 
66164΄115000 

@6165 021000 
@6166”030011- 

06167 “925765 

06172" 045000 
06171'024055- 
26172'151400 WRPFL: 
26173'0410009 
96174°125494 

6175° 829775 


WRP: 
26206 000402 
@6207? ” 200517 
@6210 019Q014- 
26211'152400 
06212'9051"63 


WRTRY: 
96223° 263077 


06234'000402 
g6235 000457 
06256'031763 
06237 “151984 
g6240 020413 
26241'0350022- 
06242'0419095 
06243'021765 
06244΄041000 
06245'021764 
06246^034005— 
06247'1170900 
06250^021400 
06251'034016 
g6252 041002 
96255/011763 WRP1: 
06254'025"765 
96255°O38027- 
6256 “132432 
062570909734 


FILCT-1 
CPAT-1 


USUBR 
STA 
STA 
STA 
SUBZL 
STA 


LDA 
LDA 
ADD 
LDA 
LDA 
LDA 
STA 
LDA 
INC 
STA 
INC 
JMP 


MTDIO 
JMP 
JMP 
ISZ 
SUB 
STA 


MTDIO 
HALT 
MTDIO 
JMP 
JMP 
LDA 
MOV 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
LDA 
ADD 
LDA 
LDA 
STA 
157 
LDA 
LDA 
USCT 
JMP 
.EJEC 


WRPAT,5 
G,CHTTO,3 
1,CHLPT,3 
2,FILCT,3 


0,0 


Q,CPAT,5 


2,PAT 


Q,CPAT, 5 


9,2 


-REOCSZ-*1 


5 
, 


ορ Oe we wo wo wo 


“eo 


"o 


MTWR,.BUFF,RECSZ 


Εκ 
WRPSC 
NWERP 
8 8 


2. ERRCT,3 


MTSBW,.BUFF,1 


So sao 0 ο 


J 


) 
MTWR,.BUFF,RECSZ 


+2 
WRPUD 


2, ERRCT,35 


212 $S ZR 
WRP1 
2,SPNT 


9 ,ESTAT,2 
%,FILCT,3 
0,EFILE,2 
@,CPAT,3 


3,PAT 
9,3 

0,0,3 
3,UFP 


Q,EPAT,2 
ERRCT,3 
1,ERRCT,3 
2,=NRTRY 


1.5 
WRTRY 


so sao WO seo WO `° wo wo Ὁ 


"66 wo 90 


"eoo 


> ERROR COUNT = Ø 


T 
SUBROUTINE TO WRITE PATTERN FILE 


CURRENT PATTERN (1-5) 


ERROR COUNT 


ENTRY POINT, 5 TMPS 
SAVE CHANNELS 


SAVE FILE COUNT 
CPAT = 1 


GET ADDRESS OF PATTERN TABLE 
GET CURRENT PATTERN # 

INDEX INTO TABLE 

GET PATTERN 

CET ADDRESS OF BUFFER 

SET HEADER WORD IN BUFFER 


SET LOOP COUNT 
FILL BUFFER WITH PATTERN 


ERROR RETURN 
SUCCESS RETURN 
INC # OF ERROR WITH PASS 


SPACE BACKWARD 1 RECORD 
ERROR RETURN 


ERROR RETURN 
SUCCESS RETURN 
IF ERROR COUNT Ξ 9 


THEN UPDATE ERROR SUMMARY DATA 


GET CURRENT PATTERN # 
GET ADDRESS OF PATTERN TABLE 
INDEX INTO TABLE 
GET PATTERN 
RESTORE FP 


INC ERROR COUNT 
CET ERROR COUNT 
IF(ERRCT .LE. NRTRY) 


THEN LOOP 


P ar: 


e 


Φ 


e 


Ala CORPORATION d 


x 


91 
£2 
25 
94 
05 
σ6 
87 
28 
σ9 
10 
11 
12 
13 
14 
15 
16 
IY 
18 
19 
20 


062690^9014914- 
26261'029491 
06262'010915- 
06265'0390022- 
906264021763 
06265122499 
26266'2419901 
06267'029021- 
06270142437 
06271'000404 
06272'029046- 
96273°113880 
26274'050022— 
WRPBE: 
36305063077 


2651 2΄ 063077 
96313 “0920663 


06314^050022-WRPUD: 
06315°921763 

06316 100400 

06317 “241901 

96328 °029621- 
96321°142437 
Q6322'0004Q4 
06325'020046- 
06324^1135000 
06525'050922- 


06326'0120015-WRPSC: 
06327011764 

@6530 021764 
$6331°924951- 

26332 106432 
36333000627 
06540000401 
Q6345'0900401 

26356 000401 


06367 “090401 


STA 
MTDIO 
HALT 
MTDIO 
HALT 
JMP 


ΤΡΑ 
LDA 
NEG 
STA 
LDA 


NOP 


MTDIO 
NOP 
MTDIO 
NOP 
URET 
.EJEC 


NWERP 

etl 

NWERF 

2, ,SPNT 
@,ERRCT,3S 


WRPBE 
0,=4 
0,2 
2,SPNT 


MTSBW,.BUFF,1 


MTERS 
WRP 


2,SPNT 
@,ERRCT,3 
0,0 

9 ,ERTRY,2 
Q,SEND 


NREC 
CPAT,3 
@,CPAT,3 
1,=NPAT 
0,1 
WRPLP 


MTWRE 
MTWRE 


MTSBW,.BUFTF,0 
MTSBW,.BUFF,O 


Ao we 99 Sao Wo we 


DEC # OF WRITE ERRORS WITH PASS 


JUST IN CASE 


UN 


INC # OF WRITE ERRORS WITH FAIL € 


GET POINTER INTO SUMMARY ΠΡ 


UPDATE # OF RETRIES 


SPECIFY WRITE e 
IF(SPNT .LT. SEND) 3 
@ 
THEN SPNT = SPNT + 4 
Φ 
SPACE BACKWARD 1 RECORD | 
ERROR RETURN e 
ERASE BAD TAPE 
TRY AGAIN 9 
GET POINTER INTO SUMMARY BUFFER . © 
UPDATE # OF RETRIES ° 
SPECIFY WRITE Š 
IF(SPNT .LT. SEND) e 
THEN SPNT = SPNT + 4 e 
e 
INC. # OF RECORDS 
INC. CURRENT PATTERN # m 
IF(CPAT .LE. NPAT) | 
THEN LOOP e 
WRITE EOF 
@>° 
WRITE FOF 
SPACE BACKWARD 1 FOF ° 
SPACE BACKWARD ANOTHER EOF m 
RETURN 
e 
@ 
e 
| @ 
L 


AJA P 


e 


° 
, 
9 


177762 RDFLG- 
177761 RIGHT- 
1777690 WRONG= 


06572'041767 
G6375° 045766 
963747051765 
3637510252 
96376 °@41764 


26577'102400 RDPLP: 


26400041762 


DFAL: 


26411 020402 
06412 Z00467 
064137010016- 
06414^152409 
06415'051"763 


RDTRY: 


06426'063077 


064357^000402 
26440000430 
06441'0351763 
06442^'151024 
26445000415 
06444΄050022- 
06445΄041005 
06446^921765 
96447 “941020 
06450 ° 021764 
264517034003- 
064521170% 
06455'0214900 
06454'034016 
06455'041202 
26456°@11763 RDP1: 
06457 "025763 
96468 °030027- 
06461 °132432 
06462" 0007 54. 
06463 °914916- 
06464000401 
06465/010017- 
26466^002401 
06467” 007257” 


ERRCT-1 
RDFLG-1 
RIGHT-1 


USUBR 
STA 
STA 
STA 
SUBZL 
STA 


SUB 
STA 
MTDIO 
JMP 
JMP 
ISZ 
SUB 
STA 


MTDIO 
HALT 
MTDIO 
JMP 
JMP 
LDA 
MOV 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
LDA 
ADD 
LDA 
LDA 
STA 
ISZ 
LDA 
LDA 
USGT 
JMP 


. DSZ 


JMP 
ISZ 
JMP 
RDPRT 
.EJEC 


SUBROUTINE TO READ A PATTERN FILE 


RDPAT,8. ; 
Ø, CHTTO,3 ; 
1,CHLPT,3 
2,FILCT,3 ; 
9,0 ; 
g,CPAT,3 


0,9 ; 
Q,RDFLG,3 
MTRD,.BUFF,RECSZ 
ore 


πο 
= 
rg 
ca 
Q 


2, ERRCT,3 
MTSBW, BUFF ,1 ; 


s ERROR RETURN 


MTRD,.BUFF,RECSZ 
+2 

RDPUD ; 
2,ERRCT,3 
2,2,SZR 
RDP1 
2,SPNT ; 
Ø, ESTAT,2 
@,FILCT,3 
0, EFILE,2 
6 ,CPAT,3 


` ° 


Q 
ο 


ERRCT,3 ; 
1,ERRCT,3 
2,=NRTRY ; 
1.2 
RDTRY 
NRERP 
sti 
NRERF 
@.+1 


Neo sao Wo “OS ος 


;IF (ERROR COUNT = 


> GET ADDRESS OF PATTERN TABLE 


; RESTORE FP 


ERROR FLAG 
RIGHT MATCH 
WRONG MATCH 


ENTRY POINT, 8. TMPS 
SAVE CHANNELS 


SAVE FILE COUNT 
CPAT = 1 


RESET READ FLAG 


ERROR RETURN 

SUCCESS RETURN 

INC. # OF READ ERROR 
ERRCT = 6 


SPACE BACKWARD 1 RECORD 


ERROR RETURN 
SUCCESS RETURN 
2 


THEN UPDATE ERROR SUMMARY DATA 


GET CURRENT PATTERN £ 
INDEX INTO TABLE 

CET PATTERN 

INC ERROR COUNT 
IF(ERRCT .LE. NRTRY) 


THEN RETRY READ 


DEC 4 OF READ ERRORS WITH PASS 


JUST IN CASE 


INC # OF READ ERRORS WITH FAIL 


GIVE-UP 


WITH PASS 


CORPORATION 


' 


° 


° 


9 


@ 


(91 064207 


1 06470'050022-RDPUD: 
092 06471'021763 


65 
04. 
25 
6 
ο 
@8 
ZS 
10 
1 

12 
15 
14 
15 
16 
17 
18 
19 
20 

21 

22 
25 
24 

25 


26472'041991 
06473'020921- 
06474142437 
Q6475'09090404 
06476'02004€- 
264771139000 
C6582 '050022— 


36591” ,050011-RDPSC: 
06582" 021020 
26593 °S25765 
96504°106415 
965905*'0900517 
065067041768 
3657” 045761 


RDP23 
06624° 021764 
06625΄054005-- 
066626 ”117000 
26627 '021409 
26630 °G34055— 
@6631 151401 RDTST: 
06652'007041' . RDER: 
96633 025020 
06634°196414 
06635 °@62775 
$6636 °175404 
06637 020772 


06642 “934016 
06641'021762 
06642°191805 
06643220574 


27037 @0@2401 .RDNX: 


07040'007252* 


LDA 
LDA 
STA 
LDA 
USLT 
JMP 
LDA 
ADD 
STA 


LDA 
LDA 
LDA 
SNE 
JMP 
STA 
STA 
EMSG 
EMSG 
EMSG 


LDA 
LDA 
ADD 
LDA 
LDA 
INC 
RDPER 
LDA 
SEQ 
JMP 
INC 
JMP 


LDA 
LDA 
MOV 
JMP 
EMSG 
EMSG 
EMSG 
EMSG 
JMP 
RDNXT 
. EJEC 


, 9 


2,SPNT : GET POINTER INTO SUMMARY zaj 
@,ERRCT,S ; UPDATE ERROR COUNT 
Q,ERTRY,2 9 
A ΝΥ ; IF(SPNT .LT. SEND) 
2 
RDPSC e 
ite ; THEN SPNT = SPNT + 4 
2.SPNT ° 
2, o BUFF ; GET ADDRESS OF BUFFER 
0,0,2 ; GET HEADER WORD 9 
1,FILOT,$ ; IF(FILE COUNT DON T MATCH) 
9,1 
RDP2 @ 
Ø, WRONG,3 ; THEN SAVE RIGHT AND WRONG 
1,RIGHT,3 ; AND PRINT MESSAGE 
"PILE COUNT DON’ T MATCH e 
"SUPPOSE, TO BE! "RIGHT Δ 
SBOT AILT S. , WRONG Ξ 
; FILE COUNT DOES MATCH e 
Q,CPAT,3 ; GET CURRENT PATTERN £ E 
5 ΡΑΊ ; GET ADDRESS OF PATTERN TABLE Ξ 
2,3 ; INDEX INTO TABLE e: 
ο, 6,5 ; GET PATTERN Š 
3,=-RECSZ+1 ; SET LOOP COUNT Š 
2 2 SKP ; TEST FOR PATTERN MATCH ο 
1,0,2 ; IF(PATTERN DON’T MATCH) 
0,1 e 
@.RDER ; THEN ERROR 
$,5,SZR ; TEST THE WHOLE RECORD 
RDTST * 
; PATTERN DOES MATCH 
3,UFP ; RESTORE FP 
®,RDFLG,3 | IF(READ FLAG = 8) e° 
0,0,SNR 
,RDNX ; THEN GO READ NEXT RECORD 
“READ ERROR: — THE 1 RETRY_ PASSED' ° 
"PATTERN DIDN T_ MATCH ON. 1ST READ PQR “FILE: 7, 
"SUPPOSE. TO BE „RIGET 
"BUT IT WAS ",WRONG ° 
@.+1 
@ 
Φ 
& 
9 
e 
° 


E) | im CORPORATION / 


01 27041'054016 RDPER: LDA 


G2 07042'041761 
05 0Q7043'2457v6g 
04 07044'021"762 
Q5 270457101084 
G6 07046'9009416 
Qv 070471009000 
Q8 0"7050'041762 
09 
12 07061'063077 
11 @7262°202401 
12 07063'0906491^ 
16 
14 
15 
16 
1% 
18 
19 @7252°@11764 
20 87253 °@21764 


21 @7254°624951- 


22 @7255°106432 
23 07256 °902413 
24 
29 
26 87267009401 
27 
28 
29 07271'096577* 
3g 


STA 
STA 
LDA 
MOV 
JMP 
COM 
STA 
MTDIO 
HALT 
JMP 
RDFAL 


RDP3: EMSG 
EMSG 
EMSG 
EMSG 


RDNXT: 157 
LDA 
LDA 
USGT 
JMPG 


RDPRT: MTDIO 
NOP 
URET 


JRDLP: RDPLP 
.EJEC 


3,UFP 
@,RIGHT,3 
1,WRONG,3 

@ ,RDFLG ,3 
@,0,SZR 

RDP3 

2,0 

@,RDFLG ,3 
MTSBW, BUFF ,1 


@.+1 


"WRITE ERROR 


; RESTORE FP 
; SAVE RIGHT AND WRONG 


; IF(READ FLAG = 0) 


THEN SET READ FLAG 


> SPACE BACKWARD 1 RECORD 
; ERROR RETURN 
; READ FAIL -- RETRY ONCE 


; FAILED THE ONE RETRY 


- THE 1 RETRY FAILED AGAIN 


"PATTERN DON’T "MATCH ON FILE  ",FILCT 


"SUPPOSE TO 


[aum IT oS "T. 


MTSFW, .BUFF,@ 


BE ",RIGHT 
WRONG 


; INC. CURRENT PATTERN # 
Σ IF(CPAT .LE. NPAT) 

; THEN 100Ρ 

; SPACE FORWARD TO BOF 

; RETURN 


JUU VAV Ú Ἢ 


SIP 


C OG 
"e 
[ss] 


πμ. ο ανα 


ROUTINE TO PRINT AN ERROR SUMMARY 


ο 
ο 
7 
177765 PNT- CHLPT-1 ; POINTER INTO STAT BUFFER | 
š USUBR PFERR,3 ; ENTRY POINT, 3 TMPS | 
07273'041767 STA 0,CHTTO,3 ; SAVE CHANNELS ο 
@7274“045766 STA 1,CHLPT,5 | 
EMSG “BRROR_ SUMMARY: | 
EMSG ^FILE, #_ _ RETRIES PATTERN STATUS’ ο 
0"73555'02902029- LDA 9 ,S BGN ; SET PNT = SBCN 
$7356'941765 STA @,PNT,3 | e 
PELOP:  ENUM PNT,ESLEN ; PRINT NUMBER STRING 
07435'9021765 LDA @,PNT,3 ; PNT = PNT + 4 
ADDI 4,2 e 
07440'041765 STA 0,PNT,35 
07441'024022- LDA 1,SPNT ; IF(PNT < SPNT) 
07442106436 USGE 9,1 9 
07443'000714 JMP PELOP ; THEN LOOP 5 
URET e 
, Š 
; ROUTINE TO PRINT A STATISTICAL SUMMARY | e 
3 5 
177765 TMP- CHLPT-1 ; TEMP ON STACK : 
USUBR PSTAT,3 ; ENTRY POINT, 3 TMPS ° 
07446΄041767 STA @,CHTTO,3 ; SAVE CHANNELS e 
07447'045766 STA 1,CHLPT,3 i 
EMSC “STATISTICAL  SUMMARIY:^ 
07477'020013- LDA @,NREC ; PUT # OF RECORDS ON STACK @ 
07500'9041765 STA Q,TMP,3 
EMSC "TOTAL ἡ OF. RECORDS -  ",T7MP 
07540'020014— LDA @ ,NWERP ; PUT # OF SOFT WRITE ERRS ON οπλο 
02541’ 041765 STA Ø, TMP ,3 
EMSG "# OF SOFT WRITE FAILURES -  ",TMP 
07604'029915- LDA ο, NWERF ; PUT 4 OF HARD WRITE ERRS ON zr 
27605'041765 STA Q,TMP,3 
EMSG . OF HARD WRITE FAILURES =_ ",TMP | 
37650’ O20016- LDA 0, NRERP ; PUT # OF SOFT READ ERRS ON πτλαθ 
07651'041765 STA Q,TMP,3 
EMSG '# ΟΣ SOFT READ _ FAILURES - ",TMP 
07714'020017- LDA 6 ,NRERF ; PUT # OF HARD READ FRRS ON It. 
07715'9041765 STA Q,TMP,3 y 
EMSG # OF HARD READ _ FAILURES - ",TMP 
URET & 
; | 
PEORES 
; * 
07761'001000 SBUFB: .BLK 512. ; SUMMARY BUFFER - BEGIN (128 ERRORS) 
10761'000004 SBUFE: .BLK 4 ; SUMMARY BUFFER - END ( 1 ERROR) 
19765°019000 BUFF: .BLK 4096. ; 1/0 BUFFER @ 
: | 
---υἩ,άά-"'-᾿-᾽-.““κΝηΝπ“Ὰ“-ω--..πρι 
.EXTN — .RTOS ; STARTING ADDRESS FOR DBOOT | | 
073777 .L0C 737777 
73777 077777 . RTOS © 
.END 
00023-020000 ο 
ATA P ο 


21 002000 


22 209009097 
935 20909060 
94 200012 
95 9909914 
26 9910909 
g7 2060040 
28 9200900 
σ9 2904200 
160 2900920 
TE 2909420 
lc 9900901 
13 C40 200 
14 909200 
15 024101 
16 003722 
17 9009022 
18 901759 
19 900024 
20 @19000 
21 007777 
22 2020995 
23 9909926 
24 22009002 
29 290005 
26 177401 
27 177774 


**(Og00 TOTAL ERRORS, 600600 PASS 1 ERRORS 


"d 


BNOCT 
BUFF 
CHLPT 


CHTTO 


CMPI 
CPAT 


DCNT 

DCOM 

DELAY 
DEVCD 
DIGIT 
EFILE 
EHALT 


ELOOP 


EMLPT 
EMRET 
EMSG 


00024" 


200255 
9900263 


0009030 * 
910765^ 
177766 


177767 


90900269 
177764 
2900915 


0090012 
200494* 
0601055 
177765 
9900524 
200000 
90909740 


2003507 


99012” 
280023" 
209555 


MC 


MC 
MC 


MC 


MC 


1/91 
26/14 
1/21 
1/61 
10/50 
11/58 
12/37 
14/32 
16/42 
18/87 
18/37 
4/32 
8/98 
1/57 
10/29 
15/08 
26/04 
1/55 
12/33 
20/23 
1/61 
12/25 
21/84 
23/13 
1/5@ 
9/46 
10/48 
11/18 
11/57 
12/18 
12/45 
14/06 
15/24 
16/19 
17/29 
18/12 
18/32 
19/34 
24/42 
26/10 
26/45 
1/48 
9/85 
6/52 
13/24 
4/20 
20/95 
6/65 
12/25 
15/38 
18/17 
2/46 
12/24 
3/48 
4/05 
3/29 
10/49 
11/50 
11/58 


4/37 
26/15 

4/36 

3/47 
11/05 
12/05 
12/38 
14/49 
17/33 
18/11 
19/13 

4/32 
26/51 

1/58 
10/34 
17/06 
26/07 

1/57 
11/14 
20/39 
10/49 
12/37 
21/05 
28/36 

8/23 

9/47 
12/49 
11/51 
11/58 
12/24 
12/44 
14/97 
15/31 
16/22 
17/36 
18/11 
18/40 
20/27 
24/45 
26/14 


7/38 
9/13 
7/37 
14/904 
4/39 
21/45 
10/49 
12/37 
16/04 
18/24 
12/48 
12/36 
4/01 
4/99 
8/22 
19/50 
11/32 
12/83 


4/40 


4/40 

4/02 
11/66 
12/06 
12/44 
15/28 
17737 
18/14 
19/17 


4/05 
11412 
19/66 
26/25 

3/58 
11/46 
20/48 
11/05 
12/44 
21/12 
24/22 

8/56 

9/48 
12/58 
11/32 
12/04 
12/25 
12/45 
14/31 
15/32 
16/32 
17/37 
18/17 
19/29 
24/19 
25/15 
26/30 


7/53 


7/52 
14/06 

4/45 
23/35 
11/65 
12/44 
16/19 
18/31 
11/04 
12/43 


8/55 
11/02 
11/33 
12/05 


4/44 


4/44 

7/54 
11/32 
12/17 
12/45 
15/32 
17/40 
18/18 
19/22 


8/14 
11/15 
20/24 
26/28 

8/12 
13/28 
21/08 
11/32 
13/45 
21/15 
25/19 

9/42 

9/49 
11/95 
11/33 
12/95 
12/26 
12/53 
14/32 
15/38 
16/56 
17/43 
18/18 
19/16 
24/20 
25/16 
26/33 


10/42 
10/41 
4/45 


11/32 
13/51 
17/36 
19/16 
11/31 


18/27 
11/83 
11/40 
12/06 


4/46 


4/46 

8/52 
11/33 
12/18 
12/56 
15/59 
17/44 
18/25 
19/26 


8/15 
11/47 
20/24 


8/13 
15/07 
25/09 
11/57 
13/47 
21/46 
25/20 

9/43 
10/08 
11/04 
11/41 
12/06 
12/36 
15/12 
14/43 
15/39 
16/45 
17/44 
18/24 
19/17 
24/21 
25/17? 
26/36 


17/52 
17/51 
4/49 


11/57 
14/66 
17/45 
19/25 
11/56 


10/24 
11/05 
11/49 
12/15 


4/50 


4/50 
10/22 
11/38 
12/25 
13/52 
16/05 
17/53 
18/28 
19/31 


8/40 
13/24 
21/09 


8/39 
17/95 
26/06 
12/05 
14/2" 
22/32 


9/44 
19/25 
11/25 
11/50 
12/16 
12/37 
15/51 
15:71:41 
16/84 
17/69 
17 /56 
18/25 
19/25 
24/40 
25/18 
26/39 


4/51 


12/05 
14/31 
17/56 


12/04 


10/46 
11/86 
11/55 
12/17 


12/17 
15/31 
18/10 


12/16 


12/47 
11/17 
11/57 
12/18 


Al CORPORATION / 


ENUM 
EPAT 
ERMSG 
ERRCT 


ERTRY 
ESET 


ES LEN 
ESTAT 
FILCT 


HR02G 
HR@2V 
HRO3H 
HRO47 
HR@4K 

@ HRQ4X 
HROSA 
HROSN 
HRO6ED 
ΒΒΦΘΜ 
HRO6S 
HRO6Z 
HRØTL 
HRQ7S 
HR07Z 
ER?86 
HER291 
HR?98 
HROOG 
HR? ON 
HRQ9U 
RR2A1 
ER?AB 
HROAR 
EROAZ 
IOR 
IOTBL 
LDAIU 
LF 


000554 MC 
2900902 
000070^ EN 
177765 


2099091 
29090520 MC 


200064 
000005 
177765 


001120” 
281315” 
001521” 
901753” 
902102* 
982234" 
082356" 
202514” 
002645* 
303117” 
003217" 
303322” 
603641” 
023750" 
004053” 
084156" 
004612” 
904717” 
305040” 
005154’ 
005257 ” 
005570” 
025474" 
005707* 
9069005* 
€60266 MC 
200141” 
660165 MC 
900012 


26/14 

8/56 
11/05 
11/33 
12/05 
12/26 
12/53 


18/28 
11/84 
11/41 
12/86 
12/36 
13/12 


@ 17/36 17/37 17/43 17/44 17/56 17/57 18/10 


11529 001664 10/49 


119920 221261’ 11/65 

LL@3A 081465’ 11/32 

116040 €0171"7* 11/57 

LLO4D 082046" 12/65 

11249 202200" 12/17 

LL053 202322” 12/25 

11256 902460’ 12/37 

LLO5T 002611” 12/44 

LOOP 290001 2/31 19/37 10/49 11/05 11/20 11/32 11/51 
11/57 12/905 12/17 12/25 12/37 12/44 

18029 001066” 10/49 

180220 201263” 11/25 

LR23A 621467” 11/32 

LR@4@ 001721” 11/57 

1804) 002050^* 12/05 

18640 002202” 12/17 

18055 002324” 12/25 

1865606 002462” 12/37 

LR@5T 882613" 12/44 

ΜΙ10Ρ 000645” 19/17 18/19 

MIRET 209706^* 10/25 10/25 

MiSC 001120” 16/44 19/53 

MISLP 089715” 10/38 10/49 11/85 

MISRT 201315^* 18/56 11/68 

M1SUB 880719’ 10/14 12/16 19/18 18/33 

M2LOP 2901356” 11/21 11/32 

M2RET 001561” 11/39 11/41 

M2VAL δδ1521΄ 11/28 11/36 

M3B1 4£01753^ 11/54 12/01 

M3D1 002234” 12/14 12/21 

M3D2 002514” 12/34 12/40 

M3LP1 2016257” 11/52 11/57 12/05 

M3LP2 292102^* 12/02 12/00 12/17 12/25 12/37 12/44 

MZPAS 82645” 12/41 12/48 

M3RET 002704” 12/51 12/53 

ΜΦΝΑΙ 2023567 12/22 12/29 

M4ER1 283121” 13/48 14/83 

M41S1 003011” 13/19 13/39 

M4IS2 803231” 14/15 14/21 

M4MSK 003221” 13/24 14/12 

M4PAS 0833237 14/19 14/36 

MARET 203372” 14/09 14/34 14/41 14/43 

M4RIV 003120’ 13/48 14/01 14/22 

M4RT1 903217” 13/54 14/89 

M4SUB 282766" 13/18 13/26 14/11 

M5ER 0042053” 16/16 

M5ER1 664156” 16/17 16/23 

M5PAS 0041567 16/31 


` Al CORPORATION / 


ο σπιν a ie HEC ——— =n 


M5RET 
M5WR 

MSWR1 
M5WR2 
MOWRS 
M6ER1 
M6LOP 
M6PAS 
M6RET 
M6RW 

M6S BW 
M6TBT 
M6TRW 
M6WT 

M7ERS 
M7PAS 
M7RET 
M8LOP 
M8RDP 
ΜΑΦ1ΙΝ 
MA225 
MAC2" 
MA22K 
MAD 2M 
MA? S8 
MA26Q 
MAD? J 
MA@7Q 
MAZ"X 
MA084 
MA@8Z 
MA096 
MAGOR 
MA@OL 
MA29S 
ΜΑΘΘ9Ζ 
ΜΑΦΛΘ 
MAQAP 
MAØC1 
MACI 
MASC? 
MAG C9 
MA@CB 
MA@CG 
MACI 
MAØCK 
MAØDC 
MAZ DE 
MAGDG 
MAQDI 
MAODK 
MBO1N 
MB@25 
MB227 
MBOZK 
MB02M 
MBOSS 
MB?6Q 


004522” 
003641 “ 
903750* 
003750” 
3094053” 
005370” 
g@04477 
205474” 
905550" 
904717" 
2095257” 
305154” 
004612” 
305040” 
305707” 
906095* 
906041^ 
306116” 
086145” 
020366" 
908751" 
2019117 
001146” 
281206" 
201412^ 
083150" 
203572" 
303701” 
204004” 
004107" 
004543’ 
024650" 
304771” 
005185” 
305210” 
205321” 
205425" 
005640’ 
226556" 
Z06607” 
926735" 
206770” 
207022” 
3897151” 
207204* 
907235* 
007523" 
307567” 
007633” 
007677” 
307743” 
900361 ^ 
209744" 
201004° 
901141" 
091291” 
301405” 
203143” 


m= | Ë CORPORATION / 


AEN o —— —— u M MEL E MC CC M CELL. 


MB@7J 6005565” 15/31 
MB@7Q 023674" 15/38 
MBO"X 003777” 16/24 
MB@84 0€4102* 16/19 
@ ΠΤ 924536" 17/36 
MB2096 004645” 17/43 
MBZOE 004764’ 17/56 
MBOOL 605120” 18/12 
MB29S 825203’ 18/17 
MB@9Z 005314” 18/24 
ΜΕΦΑ6 905422’ 18/31 
MBOAP 005633” 19/16 
MB@C1 226551” 24/20 
MB2C3 006602” 24/21 
MBC? 306730” 24/41 
MBØC9 006763” 24/42 
MBZCB 907015” 24/43 
MBØCG 207144” 25/16 | 
MBOCI 007177” 25/1" | 
MB2OCK 097230^* 25/18 | 
MBØDC 887516” 26/33 
MBØDE 087562” 26/36 
MBØDG 907626" 26/39 
MBODI 387672” 26/42 | 
MBODK 227736" 26/45 
MC21A 090276" 8/23 | 
MC@1N 000367” 8/56 
MC@1S 290622^ 10/08 
MCO1Y 2009675" 10/25 
m MCO25 000752” 18/47 
MC@27 001012’ 10/48 
. MCØ2D 601551” 19/49 | 
MCO?I 201186” 10/52 
MC@2K @Q1147” 11/83 | 
MCO2M 001207” 11/84 
MC@2S 201246" 11/85 | 
MC@2X 281303" 11/86 
MC@33 901342’ 11/18 
MCO38 201413’ 11/31 
MCOSE 021452" 11/32 
MC2OSJ 0015077 11/33 
MC@30 881550" 11/41 
MC@3U 201610" 11/50 
MC@3Y 001650“ 11/56 
MC244 66017604” 11/57 
MC@49 601741’ 11/58 
MCO4B 001777" 12/04 
ΜΟΘ45 222033^ 12/85 
MCO4AM 282070" 12/96 
MC240 302131” 12/16 
MCOAU 002165” 12/17 
MC@4Z 002222^ 12/18 
MC@51 602255 12/24 
MC@57 092307* 12/25 
MC@5C 0023447 12/26 
MCO5E 202411” 12/36 
MCOSK 092445^ 12/37 
MC@5P 092502* 12/38 


ως το... s μονών στ πας ο EE SS EE 


MCO5R 
ΜΟΘ5Χ 
ΜΟΘ62 

e: 
MCO6D 
μοσθκ 
MC260 
MC26Q 
μοσθῦ 
MC@6X 
MC271 
MCO76 
MC2"C 
MCOVE 
MCO7G 
MCO7I 
MCØ?N 
MCB7Q 
MC@7U 
MCO?X 
MCOB1 
MC084 
MC288 
MCOBA 
MCOBC 
MCOBH 
MCOBN 
MCZBP 
MC2BR 

[ 0282 
MC093 
MC@96 
ΜΟΘΘΑ 
ΜΟΘΘΕ 
ΜΟΖ9Ι 
MC@9L 
MCOOP 
MC09S 
MCOOW 
MC29Z 
MCØAZ 
MCOA6 
MCOAA 
MCOAF 
MCOAL 
ΜΟΘΑΡ 
MCOAT 
MCOAX 
MCOB1 
MC2 B6 
MCOBC 
MCOBZ 
MC2C1 
μασ ος 
MCOC5 
MCOC? 
MCOCO 
ΜΟΘΟΒ 


202542” 
302576” 
302633” 
002673” 
302735” 
203054” 
903105* 
303151” 
2903205^ 
003257” 
303313” 
203361” 
003427” 
083457" 
283524" 
003573” 
99362" * 
903702” 
883736” 
304005” 
034041” 
204110” 
004144” 
904175* 
004235” 
004311” 
304363 ° 
004413” 
304460” 
004544” 
204600” 
304651” 
384705” 
004772” 
305026” 
305106” 
005142” 
005211” 
005245” 
005322” 
305356” 
305426” 
005462” 
005537” 
305578” 
205641” 
005675” 
005742” 
205773” 
296030" 
206065” 
206527” 
206557” 
206618” 
006670 “ 
986736" 
226771 ” 
0e7v025* 
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MCOCE 007113” 25/15 
MC@CG 007152” 25/16 
MC@CI @07205” 25/17 
o MCCCK 297236’ 25/18 
MCOCP 287318’ 26/59 
MCOCR 007344” 26/12 
MCODA 007466^* 26/30 
MCODC ?097524* 26/33 
MCODE 207570” 26/36 
MC2DG 07634" 26/39 
MCODI 087790’ 26/42 
MCODK 007744* 26/45 
ME21A 00275” 8/23 
MEO1N 0005365” 8/56 
ME@1S 290621^ 10/28 
ΜΕΘΙΥ @2Z 0674“ 19/25 
ME@25 000759" 19/47 
ME027 2801010" 10/48 
ME@2D 0812050’ 10/49 
ME@2I 001105” 19/52 
ME@2K 001145” 11/05 
ME@2M 081205” 11/04 
ME@2S 001245” 11/95 
ME?2X 201302” 11/86 
ME@33 001341” 11/18 
ME@38 001411’ 11/31 
MEZZE 001451” 11/32 
ME@3J 60601506” 11/33 
ME230 001547” 11/41 
@ v 001607* 11/50 
ME@3Y 001647” 11/56 
MF044 091703’ 11/57 
ME@49 601740” 11/58 
ME@4B 0091776^* 12/04 
ME@4H 0020352” 12/05 
ME04M 002067* 12/96 
ME@40 6002150” 12/16 
MEQ@4U 002164” 12/17 
Μεσα; 202221” 12/18 
ME@51 002252” 12/24 
MEQ57 002326* 12/25 
ME0@5C 002545” 12/26 
MEQ5E 022412’ 12/36 
ME@SK 002444’ 12/37 
ME@5P 282501’ 12/38 
ME@5R 002541” 12/43 
ME25X 082575’ 12/44 
ΜΕΘ62 002632” 12/45 
ME@67 002672” 12/53 
ME26D 902734” 13/12 
ME@6K 383053” 13/51 
ME@60 065104” 13/52 
MF0@6Q 003147” 14/06 
MEQ6U 003204” 14/27 
MEO6X 203256’ 14/31 
MEQ71 203307 ° 14/32 
ME2"6 293350’ 14/43 
ME@7C 003426" 15⁄11 
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MEO"E 0053456” 15/13 
μερα 903523” 15/24 
MEO?7J 003571” 15/31 
MEO"N 0053626” 15/82 
@ 7» 303700” 15/38 
ME@7U 383735” 15/39 
MEO"7X 00403” 16/24 
ME@81 204040^* 16/05 
MEOB4 004106” 16/19 
ME288 604145 16/20 
ΜΕΖΘΑ 004174” 16/52 
MEOSC 204234’ 16/36 
MEOBH 204319” 16/45 
MEOBN 094362” 17/29 
MEOBP 204412’ 17/13 
MEZ8R 9094457" 17/20 
ME28Z2 204542” 17/36 
MEQ@93 004577” 17/37 
ME@96 004645” 17/43 
MEQOA 004704” 17/44 
ME@9E 204770” 17/56 
MECOSI 005025” 17/57 
MEOSL 905194” 18/12 
ΜΕΦΟΡ 005141” 18/11 
μερος 005207” 18/17 
MEZ9W 005244 “ 18/18 
ME@9Z 005320” 18/24 
MEQA3 005355” 18/25 
MEOA6 205424” 18/31 
@ eens 005461” 18/32 
ΜΕΟΑΣ 005536’ 18/40 
MEOAL 305567” 19/29 
MEOAP 005637” 19/16 
MEZAT 005674” 19/17 
MEØAX 305741” 19/25 
MEØB1 205772" 19/26 
ME@B6 296027^ 19/34 
MECBC 006064” 28/27 
ME@BZ 006526” 24/19 
ME@C1 226555’ 24/20 
MEOCS 206606* 24/21 
ME@C5 206667” 24/40 
μεσο 006734" 24/41 
MEOCO 906767” 24/42 
MEOCB 307021” 24/43 
MECCE 007112” 25/15 
ME@CG 607150’ 25/16 
ME@CI 007203* 25/17 
MEOCK 087234" 25/18 
MEOCP 087307" 26/09 
MEOCR 007343” 26/12 
ME@DA 607465” 26/50 
MEODC 6607522” 26/55 
MEODE 227566^* 26/36 
MEC DG 007632” 26/39 
0: 097676^* 26/42 
MEODK 007742” 26/45 


MLO1A €09275* 8/25 
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MLZ1N 200565” 8/56 
MLO1S 0806217 19/28 
MLO1Y 009674" 10/25 
ML@25 080750’ 10/47 
0. 901010* 19/48 
ML@2D 061050” 18/49 
ML@2I 881125” 10/50 
ML@2K 001145“ 11/23 
MLO2M 201205^ 11/64 
MLO2S 001245” 11/05 
ML@2X 001302” 11/86 
ML033 601341” 11/18 
ML@38 6601411’ 11/31 
MLOSE 001451” 11/32 
MLO3J 601506” 11/33 
ML030 9001547" 11/41 
MLØZU 301687” 11/52 
MLO3Y 0016477 11/56 
MLO44 001703" 11/57 
MLO49 901740’ 11/58 
MLO4B 001776" 12/04 
MLO4H 202032’ 12/05 
MLO4M 002067 12/26 
MLO40 202130” 12/16 
MLOAU 002164” 12/17 
MLØ4Z 002221” 12/18 
ML@51 002252” 12/24 
ML@57 @Q2306” 12/25 
ML@5C 202343’ 12/26 
@ ‘1252 002410” 12/36 
MLOSK 002444 12/37 
ML@5P 002581” 12/38 
MLOSR 202541^* 12/43 
ML@5X 082575” 12/44 
ML262 202632’ 12/45 
MLO67 @92672° 12/53 
ML@6D 002734” 13/12 
MLO6K 603055” 13/51 
ML260 605104” 13/52 
ML@6Q 0031477 14/06 
MLO6U 003204^ 14/07 
MLO6X 083256’ 14/31 
MLO71 003397’ 14/32 
MLO76 0053560” 14/43 
MLO7C 003426" 15/11 
ML27E 003456” 15/13 
MLO7G 083523’ 15/24 
MLO?J 303571” 15/31 
MLO"N 083626" 15/32 
MLO7Q 293700" 15/38 
MLO7U 203735” 15/39 
ML@7X 224003’ 16/84 
MLO81 004640’ 16/25 
ML@84 304106” 16/19 
ML@88 064143^ 16/20 
MLO8A 004174” 16/32 
ML@8C 004234” 16/36 
ML@8H 084310’ 16/45 
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MLC&N 
MLO8P 
MLOBR 
ML@8Z 

e ML293 
ML?96 
MLOOA 
MLCOE 
MLOOI 
MLOOL 
MLØQP 
ML29S 
MLOOW 
ML@92 
MLOAZ 
ML@A6 
MLOAA 
MLOAF 
MLOAL 
MLOAP 
MLOAT 
MLOAX 
MLOB1 
ML2B6 
ML@BC 
ML@BZ 
ML@C1 
ML@C3 
MLØCS 

f MLØ C7 
MLOCO 
MLOCB 
MLOCE 
MLOCG 
MLOCI 
MLOCK 
MLOCP 
MLOCR 
MLODA 
MLODC 
MLODE 
ML? DG. 
ML@DI 
ML@DK 
MMOLA 
ΜΜΦΊΝ 
ΜΜΦ15 
MM21Y 
ΜΜΘ25 
MM2? 
MM@2D 
MM@2T 
MM@2K 
MM@2M 
MMO2S 
MM22X 
MM033 
MM038 


004362” 
004412” 
984457 * 
004542” 
004577” 
00464" 
004704^ 
084770" 
905025” 
305104” 
005141” 
305207” 
005244” 
305328” 
305355” 
005424" 
305461” 
385536” 
005567” 
305637” 
005674” 
005741” 
005772” 
9206927 * 
206064" 
306526” 
006555” 
D06606” 
306667” 
006734” 
006767” 
307021” 
007112” 
007158” 
007203” 
307234” 
007307” 
007343” 
207465” 
207522” 
207566” 
007632” 
207676” 
007742” 
200245* 
292351^* 
222626" 
200656” 
000731” 
000767 
0010537 
201073” 
01126” 
001164” 
01234” 
001270“ 
001324” 
001373 
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MMOSE 201440^ 11/32 
MM@3J 001474” 11/33 
MM830 601550” 11/41 
MMØZU 8081570” 11/50 
Φον 201627* 11/56 
MM044 201602” 11/57 
MM049 0601726” 11/58 
MMO4B 001756” 12/04 
MM@4H 002021” 12/05 
MM@4M 002055^* 12/96 
ΜΜΘ40 002111 12/16 
MM24U 202153^ 12/17 
MMØ4Z 002207” 12/18 
MM051 002237” 12/24 
MM057 002275” 12/25 
MMe5C 002331” 12/26 
MM@5E 022365^* 12/36 
MM@5K 0024337 12/37 
ΜΜΟΡΡ 002467” 12/38 
MMO5R 802517” 12/43 
MM25X 002564” 12/44 
MM@62 222620’ 12/45 
MM267 002654” 12753 
MM@6D 002713” 13/12 
MMØEK Z03027” 13/51 
MM260 003072” 13/52 
MM26Q 003124” 14/26 
MM26U 803172” 14/07 
MM@6X 093244’ 14/51 
@ κ 003275” 14/32 
MMO76 203334" 14/43 
μμοτς 0903491^* 15/11 
MMO7E 605441” 15/13 
MM@7G 0603561” 15/24 
MMØ?J 003544’ 15/31 
MMO7N 602614” 15/32 
MM2"7Q 003653" 15/38 
MM07U 003723” 15/39 
MMØ?X 083756" 16/64 
MM@81 004026^* 16/05 
MM084 0949617 16/19 
MM088 004131 16/29 
MM28A 004157” 16/32 
MM@8C 094212” 16/36 
MM@8H 004260” 16/45 
MM@8N 004551” 17/29 
MM@8P 004375’ 17/11 
MM@8R 004435’ 17/28 
MM@8Z 004515” 17/36 
MMZ93 204565’ 17/37 
MM@96 094616’ 17/43 
ΜΜΘΘΑ 9046727 17/44 
MMOSE 204734’ 17/56 
MMO9I 095013’ 17/57 
MM@OL 0052517’ 18/10 
MM@9P 385127” 18/11 
MM?9S 0905160^* 18/17 
MM?oWw 005232” 18/18 
Arar ge S 
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MM?9Z 005271” 18/24 
MMQA3 005343” 18/25 
ΜΜΖΛ6 005374” 18/31 
MMQAA 005447” 18/32 
e MMZAF 385503” 18/42 
MMOAL 005557” 19/29 
MMZAP 095613^ 19/16 
MMQAT 005662” 19/17 
MM2AX 005720” 19/25 
MM?OB1 005760” 19/26 
MMOB6 896014’ 19/34 
MMZBC 2069050^ 20/27 
MMØBZ 606511’ 24/19 
MM0C1 806541” 24/22 
MMOCS 006574” 24/21 
MM@C5 026645’ 24/40 
MMOC? 206702^' 24/41 
MM?co 006755” 24/42 
MMECB ?097006^ 24/43 
MMSCE 007065” 25/15 
MMØCG 207125^ 25/16 
MM@CI 807167” 25/1" 
MM2CK 007222^' 25/18 
MM2CP 007276^* 26/59 
MMOCR 097322^ 26/10 
MMODA 007451” 26/38 
MMODC 207502’ 26/33 
MMZ2DE 007543” 26/36 
MM@DG 007607 26/39 
MMØDI 207653^* 26/42 
MM@DK 007717” 26/45 


MOVAU 0298134 MC 1/61 4/34 4/35 4/49 4/44 4/46 4/50 
4/52 8/21 8/30 8/32 8/44 8/45 10/07? 
18/37 10/49 — 11/05 11/17 11/20 11/22 11/37 
11/49 11/51 11/57 12/95 12/17 12/25 12/37 
12/44 12/49 13/11 14/39 15/18 16/41 17/28 
17/26 17/30 18/36 19/08 19/30 20/26 26/14 

MOVUA 200136 MC 1/61 4/40 4/45 4/44 4/46 4/49 4/50 
4/52 4/55 8/23 8/35 8/44 8/45 8/56 
109/08 10/25 10/47 10/48 10/49 10/50 11/03 
11/04 11/05 11/96 11/18 11/31 11/32 11/33 
11/41 11/50 11/56 11/57 11/58 12/04 12/05 
12/06 12/16 12/17 12/18 12/24 12/25 12/26 
12/36 12/37 12/38 12/43 12/44 12/45 12/53 
13/12 13/51 13/52 14/06 14/07 14/31 14/32 
14/43 15/11 15/13 15/24 15/31 15762 15738 
19/59 16/04 16/05 16/19 16/20 16/32 16/36 
16/45 17/09 17/11 17/20 17/38 17/86 17/37 
17/45 17/44 17/56 17/57 18/10 18/11 18/17 
18/18 18/24 18/25 18/31 18/32 18/40 19/09 
19/16 19/17 19/25 19/26 19/34 20/2 24/19 
24/20 24/21 24/40 24/41 24/42 24/43 25/15 
25/16 25/17 25/18 26/09 26/19 26/14 26/50 
26/33 26/36 26/39 26/42 26/45 


MRe1A 000307” 8/23 
MRO1N 000403’ 8/56 
MRO1S 000633’ 10/68 
MR@1Y 000706” 10/25 
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MRO25 200766" 10/47 
MR22"7 921926" 19/48 
MRO2D 2901062^* 16/49 
MR@2I 201117’ 10/50 
ο: 001165” 11/23 
MR22M 001223” 11/04 
MR@2S 601257” 11/65 
MR22X 601314” 11/96 
MROSS 0601355 11/18 
MR@38 091427" 11/31 
MROSE 001463’ 11/32 
MROSJ 001526” 11/33 
MR@30 881561” 11/41 
MRØZU 001621” 11/50 
MR@3Y 881661” 11⁄56 
MRQ44 801715” 11/57 
MRO49 001752” 11/58 
MRO4B 002010’ 12/04 
MRO4H 2020447 12/25 
MRO4M 002101’ 12/26 
ΜΒΘ40 202142” 12/16 
MR@4U 082176” 12/17 
MR04Z 0022337 12/18 
MRO51 002264” 12/24 
MR@57 002520’ 12/25 
MR@5C 002355” 12/26 
MR@5E 002422” 12/356 
MROSK 6002456” 12/37 
MR25P 002513” 12/38 
@ esr 002553” 12/43 
MR@5X 002697" 12/44 
MR062 292644’ 12/45 
MR067 002704” 12/53 
MR@6D 082746” 13/12 
MRO6K 6053065” 13/51 
MR@60 283116’ 13/52 
MR@6Q 203165’ 14/06 
MR@6U 803216” 14/97 
MRO6X 003270” 14/31 
MR@71 2033217 14/32 
MRO76 383372” 14/43 
MRO?C 005440” 15711 
MRO"E 293470" 15/13 
MRO7G 003535’ 15/24 
MR@7J 283607” 15/31 
MR@7?N 0053640” 15/32 
MR@7Q 003716" 15/38 
MRO?7U 003747” 15/39 
MR@?X 004021" 16/04 
MR@81 004052” 16/25 
MRQ84 004124” 16/19 
MR@88 064155^* 16/20 
MROSA 004206 16/32 
MR@8C 004246’ 16/36 
MR@8H 004322” 16/45 
MROBN 204374’ 17/89 
MROSP 004424” 17/11 
MROBR 004471” 17/20 
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MR@8Z 6004560” 17/36 
MR0@93 294611^ 17/37 
MROO6 304665” 17/43 
MR@SA 004716^ 17/44 
e ΜΒΖΘΕ Q05006 17/56 
MROOI 005037” 17/57 
MRQ9L 9005122^ 18/1€ 
MR29P 295153^ 18/11 
MR@9S 005225” 18/17 
MR@OW 095256^ 18/18 
MR09Z 085336’ 18/24 
MROAS 005367” 18/25 
MR@AG 0905442^* 18/31 
MROAA 005473” 18/32 
MROAF 605550” 18/49 
ΜΒΘΑΙ, 2256017 19/69 
MROAP 005655” 19/16 
MROAT 205706” 19/17 
MR@AX 225753’ 19/25 
MROB1 226004’ 19/26 
MROB6 096041^ 19/34 
MR@BC 026976* 20/2" 
MROBZ 296540’ 24/19 
MROC1 086573" 24/29 
MR@C3 206624^* 24/21 
MROC5 806701” 24/40 
MRØC? 096752^* 24/41 
MR@C9 007005” 24/42 
MR@CB 207837’ 24/43 
€ MROCE 007124” 25/15 
MRØCG 0@Q7166 25/16 
MROCI 007221” 25/17? 
MRØCK 007252” 25/18 
MReCP ?007321^ 26/09 
MROCR 887355” 26/10 
MRODA 097477* 26/30 
MR@DC 007540’ 26/33 
MRØDE 007604” 26/36 
MRØDG 287650" 26/39 
MRODI 9097714" 26/42 
MRODK 227760’ 26/45 
MSO1A 000246“ 8/23 
MS@1N 000352* 8/56 
MSØ1S @0Q69Q7? 10/28 
MS@1Y 299657" 10/25 
MS@25 000732” 10/47 
MS027 000770" 10/48 
MS@2D 081040’ 19/49 
MS@2I 001074” 10/50 
MS@2K 001127” 11/23 
MS@2M 001165” 11/64 
MS@2S 281235” 11/05 
MS@2X 001271” 11/06 
MS033 881325’ 11/18 
MS@38 001374” 11/31 
MSØZE 001441’ 11/32 
MS@3J 0601475” 11/33 
MS0@30 201531^ 11/41 


Al CORPORATION / 


2 


Ko ete U MT DS e ντ νερο a — A———— 


MS@3U 2815717 11/50 
MS@3Y 001630“ 11⁄56 
MS044 081673’ 11/57 
MS049 001727” 11/58 
0: 001757” 12/24 
MS@4H 202022” 12/05 
MS@4M 092056^* 12/06 
MS@40 002112” 12/16 
MS@4U 002154” 12/17 
MS@4Z 002210” 12/18 
Ms251 282240’ 12/24 
MS257 002276^* 12/25 
MS@5C 082332” 12/26 
MSOSE 202366’ 12/36 
MS@5K 2924347 12/37 
MS@5P 002470” 12/38 
MS@5R 9802520’ 12/43 
MS@5X 002565” 12/44 
MS@62 002621” 12/45 
MS@67 002655” 12/53 
MSQ6D 2902714" 13/12 
MS@6K 0036050” 13/51 
MS@60 003073” 13/52 
MS@6Q 0053125” 14/06 
MS@6U 883173” 14/87 
MS@6X 003245’ 14/31 
MS@71 003276” 14/32 
MS076 003555” 14/43 
| MS07?7C 0034027 15/11 
0 003442” 15/13 
MS@7G 003502^ 15/24 
MS@7J 003545 15/31 
MS@7N 083615" 15/32 
MS@7Q 603654” 15/88 
MS@7U 005704” 15/39 
MS@?X 003757" 16/24 
MS@81 904027” 16/05 
MS084 20904062^* 16/19 
MS@88 04132” 16/22 
MS@8A 084160’ 16/32 
MS@8C 004215’ 16/36 
MS@8R 204261” 16/45 
MS@8N 004332” 17/909 
MS@8P 094376” 17/11 
MS@8R 004436” 17/29 
MS@8Z 0€4516^ 17/36 
MS093 064566” 17/37 
MS@96 2004617” 17/43 
Μ569Α 024673” 17/44 
MSOOE 804735” 17/56 
MS@9I 395014” 17/57 
MS@SL 005552” 18/10 
MS@9P 225130’ 18/11 
MS@9S 05161” 18/17 
MSQ9W 805233” 18/18 
Ms292 305272” 18/24 
MS@A3 2053447 18/25 
MS@A6 005375” 18/31 


a i i e e e ΓΓΓΓΓΓΓΓ-Γ-Γ-Γ-Γ-ΓΓ--Γ-------------------------- 


MS@AA 005458” 18/32 
MSØAF 005504” 18/49 
MS@AL 005560” 19/09 
MS@AP 005614” 19/16 
θιςο: 305663” 19/17 
MS@AX 005721 ° 19/25 
MS@B1 095761^ 19/26 
MS@B6 206015’ 19/34 
MS@BC 06051” 20/27 
MS@BZ 606512” 24/19 
MSØC1 006542” 24/20 
MS@C3 0926575" 24/21 
MS@C5 096646’ 24/40 
MSOC? 0067037 24/41 
MS@C9 206754^* 24/42 
MSØCB @Q@Q7@@7” 24/43 
MSØCE 007266’ 25/15 
MS@ CG 807126’ 25/16 
MSØCI e27172^* 25/17 
MSØCK 007223” 25/18 
MSØCP 007277” 26/29 
MS@CR 207323^ 26/10 
MSODA 907452” 26/30 
MSODC 987503" 26/33 
MS@DE 007544” 26/36 
MSODG 207610" 26/39 
MSODI 007654” 26/42 
MSODK 087720" 26/45 
MSTAT 177775 15/04 15/31 15/38 16/84 16/19 17/36 17/43 
Le 17/56 18/10 18/17 18/24 18/31 19/16 
MTD  @@@222° EN 1/83 8/11 9/06 
MTDO1 009601” 9/290 19/04 
MTD22 001317" 9/21 11/14 
MTD?3 001563^ 9/22 11/46 
MTD24 022706" 9/23 123/98 
MTD@5 003374” 9/24 15/07 
MTD@6 004324” 9/25 17/05 
MTDO? 265552’ 9/26 19/85 
MTD28 296043’ 9/27 20/23 


MTDIO 200772 MC 6/38 15/35 16/61 16/16 17/27 18/21 19/11 
19/29 20/28 20/42 20/46 21/27 21/34 21/36 
22/14 22/16 22/38 22/40 22/42 22/44 23/17 
23/24 25/26 25/29 25/25 


MTDLP 380317” 8/34 8/46 

MTDRS 000311” 8/27 8/53 8/57 
MTDSK 800331” 8/36 8/43 

MIDST 8003309” 8/38 8/42 

MTERS 2090997 1/32 12/09 13/27 16/17 17/28 19/21 22/17 
MTIO @€8135° 7/14 7/16 

MTIO1 880152” 7/22 7/27 7/31 
MTIO2 800153” 7/25 7/26 2/52 
MTIOS 200155” 7/28 7/29 7/34 
MTIO4 880160’ 7/37 7/39 

MTIOS 288167” 7/41 7/56 7/58 
MTIO6 #00202” 7/23 7/49 

MTIO"7 0920211” 7/53 7/55 

MTIO8 2880216” 7/24 7/5" 

MTRD 2290000 1/23 23/18 23/27 


Al CORPORATION / 


γτ ` 


MTRDS 
MTRW 
MTSBW 


@ isr 


MTWR 

MTWRE 
NAM01 
NAN22 
NAM?2S 
NAM@4 
ΝΑΜΘ5 
ΝΑΜΖΘ 
NAM07 
NAM28 
NCOCT 
NEOCT 
NLOCT 
NLOOP 


NMOCT 
NNØCT 
NPAT 
NREC 
NRERF 
NRERP 
NRTRY 
NSØCT 
* NWERF 
NWERP 
PASCT 
PAT 
PATI 
PAT2 
PATS 
PAT4 
PATS 
PELOP 
PERR 
PNT 
PSTAT 
RDAT 
RDFAL 
RDFLG 
RDNXT 
RDP1 
RDP2 
RDP3 
RDPAT 
RDPER 
RDPLP 
RDPRT 
RDPSC 
RDPUD 
RDTRY 
RDTST 
RECSZ 


200002 
2099921 
2090004 


29000035 
202995 
222206 
080433’ 
200445 
200455’ 
009471" 
200507 * 
900530^ 
009554” 
300567” 
267423" 
207402” 
997402" 
900090 


907360 * 
207414” 
229005 
#00013- 
00017- 
090016- 
900912 
087361” 
300815- 
200014- 
177765 
9002003- 
155555 
125252 
052525 
ecooco 
177777 
007357” 
807273” 
177765 
207446” 
177764 
006401" 
177762 
007252” 
306456” 
3066247 
907064* 
006372” 
307041” 
99637" * 
007257” 
306501” 
206470” 
306416” 
306631” 
900400 


1/25 
1/24 
1/27 
23/25 
1/26 
1/28 
1/29 
9/33 
9/34 
9/35 
9/36 
9/37 
9/38 
9/39 
9/49 
26/14 
26/14 
26/14 
2/32 
13/11 
19/32 
26/14 
26/14 
1/12 
20/12 
20/16 
20/15 
1/47 
26/14 
20/14 
20/13 
1/58 
8/92 
1/13 
1/14 
1/15 
1/16 
1/17 
26/13 
9/07 
26/84 
9/288 
19/39 
25/17 
235/24 
24/44 
23/31 
24/15 
25/06 
20/51 
24/28 
25/15 
25/51 
25/19 
25/28 
23/24 
24/27 
1/46 


17/47 
18/22 
25/10 
20/47 
15/36 
16/@2 
9/42 
9/43 
9/44 
9/45 
9/46 
9/47 
9/48 
9/49 


8/21 
14/39 
20/26 


22/34 
20/34 
20/38 
20/57 
21/54 


20/36 
20/35 

8/25 
21/14 

8/23 

8/94 

8/95 

8/66 

8/97 
26/19 
26/96 
26/11 
26/27 
12/45 
25/12 
25/05 
25/19 
25/42 
24/21 
25/14 
23/09 
25/01 
25/29 
25/25 
24/06 
24/01 
25/46 
24/33 
21/21 


20/29 
20/45 


25/26 
21/28 
19/12 


10/07 
15/19 


25/21 
22/31 
23/49 
23/28 
23/44 


22/83 
21/32 


8/48 
21/47 


26/14 
16/48 
23/16 


24/11 


21/28 


21/35 


21/37 
22/39 


11/17 
16/41 


26/32 
26/42 
23/47 


26/36 
22/01 

8/50 
23/37 


26/16 
11/01 
24/36 


21/37 


22/15 


22/41 


11/37 


17/08 


26/39 


26/33 
8/56 
24/23 


11/04 
25/04 


25/18 


22/43 22/45 


11/49 12/49 
18/36 19/28 


25/08 


23/27 24/26 


ATA CORPORATION / 


RETSR 
RIGHT 
SAVE 
SEGN 
SBOT 
SBUFB 
SBUFE 
SDAT 
SEND 
SEOF 
SEOT 
SILGL 
SLOCK 
SPNT 


SRDY 
SRW 
STAIU 


STENT 
STNAM 
SUBI 
TMP 


U7 
UAC 


200212 MC 
177761 
008171 MC 
000029- 
0002606 
@O7761" 
019761” 
177765 
g00021- 
9902429 
2019009 
2190099 
200904 
300022- 


29999091 
2920090 
9090166 MC 
177765 
303413” 
200423" 
2090252 MC 
177765 


177771 
177772 
177773 


177774 
177775 


1/61 
23/25 
1/91 
20/17 
1/49 
20/17 
20/18 
10/29 
20/18 
1/39 
1/38 
1/37 
1/41 
20/19 
23/32 
1/42 
1/36 
1/01 
11/12 
9/10 
9/11 
1/91 
26/25 
26/40 
1/81 
8/31 
1/01 
8/44 
1/51 
18/37 
11/05 
11/33 
11/57? 
12/18 
12/43 
13/51 
14/43 
15/38 
16/36 
17/36 
18/11 
18/36 
19/26 
24/21 
25/17 
26/36 
1/01 
1/21 
19/25 
11/65 
11/50 
12/16 
12/37 
13/27 
14/32 
15/32 
16/32 
17/37 


4/10 
23/06 
13/26 
28/31 
11/22 
26/49 
26/50 
10/30 
22/08 
19/14 


18/29 
15/29 
20/32 
24/01 


7/95 
4/42 
11/29 
9/20 
9/33 


26/31 
26/42 

4/35 

8/45 

4/36 
26/14 

8/21 
19/47 
11/86 
11/37 
11/58 
12/24 
12/44 
13/52 
15/10 
15/39 
16/41 
17/37 
18/17 
18/40 
19/39 
24/40 
25/18 
26/39 
26/14 

4/11 
10/47 
11/06 
11/56 
12/17 
12/38 
15/38 
14/43 
15/38 
16/36 
17/43 


7/48 
24/17 


26/12 
17/34 


18/35 
22/24 
19/23 


21/42 
24/09 


17/41 
4/48 
11/51 


26/33 
26/43 
4/40 
17/27 
4/43 


8/23 
10/48 
11/17 
11/41 
12/04 
12/25 
12/45 
14/06 
15/11 
16/64 
16/45 
17/43 
18/18 
19/88 
19/34 
24/41 
26/09 
26/42 


7/42 
19/48 
11/18 
11457 
12/18 
12/43 
15/51 
15/04 
15/39 
16/45 
17/44 


13/37 
24/20 


18/15 


18/38 
24/04 


22/04 
26/1" 


17/54 
4/54 


26/34 
26/45 
4/44 
17/30 
4/49 


8/56 
10/49 
11/18 
11/49 
12/05 
12/26 
12/49 
14/07 
19/15 
16/05 
17/08 
17/44 
18/24 
19/09 
20/26 
24/42 
26/10 
26/45 


7/49 
19/49 
11/51 
11/58 
12/24 
12/44 
15/52 
15/11 
16/04 
17/09 
17/56 


24/42 


20/45 


10/47 


22/13 


18/28 


26/36 
4/46 
4/55 


10/07 
10/50 
11/20 
11/50 
12/06 
12/36 
12/53 
14/31 
15/24 
16/19 
17/29 
17/56 
18/25 
19/16 
20/27 
24/43 
26/14 


8/23 
10/50 
11/52 
12/64 
12/25 
12/45 
14/06 
15/14 
16/65 
17/11 
17/57 


25/02 
19/53 


22/20 


26/37 
4/50 
8/33 


10/48 
11/03 
11731 
11/51 
12/16 
12/37 
19/11 
14/32 
15/31 
16/20 
17/11 
17/57 
18/31 
19/17 
24/19 
25/15 
26/30 


8/56 
11/23 
11/33 
12/05 
12/26 
12/53 
14/27 
15/24 
16/19 
17/26 
18/10 


am 


25/1" 


11/83 


22/29 


26/39 
4/52 
8/35 


10/25 
11/94 
11/32 
11/56 
12/17 
12/38 
15/12 
14/59 
15/52 
16/32 
17/20 
18/19 
18/32 
19/25 
24/20 
25/16 
26/53 


10/08 
11/94 
11/41 
12/86 
12/36 
13/12 
14/31 
15/31 
16/20 
17/36 
18/11 


CORPORATION ; 


UAC1 177776 1/291 4/11 7/49 8/23 8/56 12/98 10/25 


UAC2 177777 1/91 4/11 7/49 8/23 8/56 10/08 10/25 


f 12/38 12/43 12/44 12/45 12/53 13/12 13/27 


UADD οθ00146 MC 1/91 
UAND 2000154 MC 1/91 
UCALL 666116 MC 1/61 16/13 10/15 16/17 20/41 20/50 


UFP 9200016 1/61 3/45 3/49 4/04 4/29 4/32 4/33 
Ue 7/41 8/12 13/2" 21/50 23/40 24/35 
25/901 


UI ο060056 MC 1/01 8/11 

UINC 2029157 MC 1/91 8/43 8/44 17/29 26/14 

UJSR 90909022" MC 1/81 

ULDA 2090140 MC 1/01 26/14 

ULNK 177770 1/91 

UPC 2900090 1/01 4/11 4/55 7/45 7/47 7/49 13/38 
URET 808127 MC 1/01 10/25 11/08 11/41 12/53 14/43 16/45 


USTA 0200145 MC 1/901 


Koc Qt Vie: X— — ης ΗΕ. 


.DFRM 
. EMSG 


«1ΝΤΡ 
.M4SB 


006151 MC 
990120 MC 


177767 


177760 
006176” 
306253” 
006155” 
006275” 
206172” 
006162” 
906326* 
206314 
306213” 
000757 MC 
9090275 MC 
200921- 


029011- 


0000025 XD 
209005 
090012- EN 


00290915 XD 
200900- 


003120" XN 
005220” 


^ .MTIO 300002- 


( 


1/81 

1/01 
17/84 

1/61 
13/88 
26/06 
23/86 
21/27 
21/41 
20/42 
22/19 
21/22 
21/14 
21/29 
21/38 
21/34 

6/22 

1/91 

4/50 
14/06 
17/56 
24/21 
26/14 

8/88 
21/35 
23/27 

1/64 

1/51 

1/05 
19/49 
11/57 
12/26 
14/97 
16/41 
18/32 

1/04 
18/41 

3/43 
10/49 
11/31 
11/58 
12/24 
12/44 
14/07 
15/31 
16/22 
17/36 
18/11 
18/40 
20/27 
24/43 
26/14 
13/25 
14/11 

7/14 
19/21 
22/15 
23/25 


22/31 


13/16 
10/47 
15/38 
18/17 
24/42 
26/36 
18/22 
22/15 
25/10 
19/14 
15/15 

4/91 
11/05 
12/05 
12/58 
14/59 
17/44 
19/17 
11/99 
22/47 

8/56 
11/03 
11/955 
12/05 
12/26 
12753 
14/32 
15/38 
16/36 
17/43 
18/18 
19/16 
24/20 
25/16 
26/33 


16/82 
20/43 
22/39 
25/10 


19/48 
16/64 
18/24 
24/45 
26/59 
20/43 
22/43 
25/26 
12/16 


8/27 
11/96 
12/06 
12/44 
15/32 
17/57 
19/26 
11/42 
25/28 
12/28 
11/984 
11/41 
12/06 
12/36 
15/12 
14/43 
15/39 
16/45 
17/44 
18/24 
19/17 
24/21 
25/17 
26/36 


16/17 
20/47 
22/41 
25/26 


11/23 
16/19 
18/31 
25/16 
26/42 
20/47 
22/45 


12/18 


8/51 
11/32 
12/17 
12/45 
15/39 
18/11 
19/30 
12/54 
26/22 
19/25 
11/05 
11/50 
12/16 
12/37 
13/51 
15/11 
16/04 
17/09 
17/56 
18/25 
19/25 
24/40 
25/18 
26/39 


17/28 
21/28 
22/43 


11/04 
17/36 
19/16 
25717 
26/45 
21/18 
23/18 


20/42 


9/13 
11/33 
12/18 
12/49 
16/05 
18/18 


14/44 
26/46 
19/4" 
11/06 
11756 
12/1" 
12/38 
15/52 
15/13 
16/05 
17/11 
17:77 
18/31 
19 /26 
24/4] 
26/09 
26/42 


18/22 
21/35 
22/45 


4 


11/31 
17/43 
24/20 
25/18 


21/28 
23/25 


28/51 


10/21 
11/37 
12/25 
13/52 
16/20 
18/25 


16/46 


10/48 
11/18 
11/57 
12/18 
12/43 
14/06 
15/24 
16/19 
17/20 
18/10 
18/32 
19/54 
24/42 
26/10 
26/45 


19/12 
21/37 
23/18 


AIA CORPORATION , 


| 


ENERO UNO E πες — D QE CC 


.RDER 206632” 

„RDLP 8807271” 

,RDNX 2207037^ 
e 373777 XN 


24/28 
25/23 
24/38 
26/55 


4 
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DEVDEC.MS 11/12/81 11:19916 ATA CORPORATION 6809 ASSEMBLER 


3 ἰκ sje ole ote ode oie of ote ote siente ote biz 3k oe oue oie SK OK DIE OC Χς o Sik sie OE Sk oj 3k 3k OE 3k ἃς OE SK Ἡς obe OC SK OC EC OKC HE ote oic 


y * * 
e * MM 6309 ROM CODING * 
* DEVICE DECODER * 
* RPU/MAG TAPE INTERFACE $ 
OK SK Ἄς si Χς ἃς ἃς ae a af Bee Sk 3k Ἐκ SK Pic OK E 2 ae Sik E ic ie af ae ae Sk Ok aie ae ae K DK ae DR K K aie eae Sok 2c aie 
ἃς x< 
* OUTPUT NAME CODE ROM ADDRESS * 
* Q? GRPSEL ALL ALL VALID * 
* — Q6 PTPSEL 13 64 * 
* Q5 PTRSEL 12 65 * 
* Q4 LPT1SL 57 20 * 
* Q3 TTO1SL 51 26 * 
* Q2 TT11SL 50 27 * 
* Qt LPTSEL 17 60 * 
* Qo MTSEL 22 55 * 
* 
* HEX DEV ROM 
* NAME DATA CODE CODING 
0010 ORG $10 
0010 65 LPTSEL PCB «6Ε 57 01101111 
2016 ORG me 
6016 77 TTO1SL FCB 7? 51 01110111 
0017 78 TT11SL FCB $78 50 01111011 
0023 ORG $2D 
002) 7E MTSEL FCB d 22 21111110 
2034 ORG 34 
0934 3F PTPSEL FCB d 13 00111111 
0035 5F PTRSEL FCB 5F 12 61011111 
END 
NUMBER OF SOURCE LINES - 33 
TOTAL ERRORS = @ TOTAL WARNINGS = ð 


: AIA CORPORATION / 


DEVENC.MS 11/12/81 11:16: 4 ATA CORPORATION 6829 ASSEMBLER 


Fe 3k 3; Ἡκ 3k Χς 3k 3k aie 5 ἃς IK 3k 3k Χς 3k Χς ake ke 3K ἃς ake 3k Sk ake afk afc 3k ak sk a Χς aie 3k 3k Χς 3k a ake ΣΚ KK 


x= * 
m κ MM 6308 ROM CODING * 
* DEVICE ENCODER * 
* RPU/MAG TAPE INTERFACE E 
x 
K ας ας ας ἃς ας 3k ας SK Χς αἷς ae ας Sik ας a ake 3k ak Ἂς fe ας ας ake ες ἃς afc ας ate Sk ἃς ake ας ae ας ας ake akc Χς ake ας fe ak 
* 
* HEX DEV ROM 
*NAME DATA CODE DATA 
2201 ORG $21 
09901 ED MTSEL FCB τε 22 XX101101 
0002 E8 LPTSEL FCB E8 17 XX10109€ 
0004 ORG $04 
20024 D? TT11 FCB $D7 50 XX@12111 
2028 ORG re 
0008 D6 TT21 FCB D6 51 XX019119 
20010 ORG $10 
2010 De LP2 FCB $D2 57 XX010€00 
0020 ORG $20 
0020 F5 PTR FCB $F5 12 XX110101 
0040 ORG $42 
9040 F4 PTP FCB $F4 13 XX110100 
END 
NUMBER OF SOURCE LINES = 25 
TOTAL ERRORS = 9 TOTAL WARNINGS - Ø 
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F.2-15 .amis F.1-5 


F.2-6 F.2-6 Gi2-1 
F.2-7 F.2-7 ς «6-5 
T.2-9 F.2-9 G.2-135 


F.5-19 F.5-19 Fc-12 
F.3-13 F.3-13 Q.Y-5 


E915 E.5-4 F. S=13 
F.6-13 E.6-4 F.6-13 
F.X-6 E.7-9 F.X-6 
e k.8-2 F.X-8 
FIN F.Y-1 EI 4-5 
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F.Y-10 
F IY=11 
E.Y-1 
E.Y<2 
E.Y-6 
Ε.Τ 
F.Y-2 
F.Y-35 
E.Y-19 
E.Y-9 
ΜΘ 
1 «5-4 
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FIRQ/ 
| 243 
FUP/ 
FWD 
FWD/ 
G.2-12 
G.2-2 
C.2-6 
6.5-12 
ς.7-5 
C.9-11 
G.9-3 
G «9-8 
GRPSEL/ 
ο... 
H.1-14 
H.1-16 
H.6-12 
H5.12 
HALT/ 
HSP 
BSP/ 
11-16 
11-12 
I.1-14 
1.1-16 
1.2141 
@..:. 
I.3-3 


L.W-" 
*CB-8 
*CB-12 
L.Y-3 
*CB-22 
6 «65-12 
G.2-2 
G.2-6 
G.5-12 
G. 7-5 
G.9-11 
F.W-1 
ΕΝ -12 
Β.2-14 
E.7-12 
H.1-14 
H.1-16 
G.6-5 
G.5-5 
L.8-40 
L.Y-4 
*CB-24 
I.1-12 
I.1712 
I.1-14 
I.1-16 
I.2-11 
lac 
1.5-5 


L.8-4 
M.Y-8 
M< Y=11 
P, | Y=11 
P.Y-19 
G.2-11 
G.2-3 
G.2-9 
H.6-5 
G.8-15 
G.9-12 
F.W-13 
G.9-8 
1.9912 
H.1-12 
H.1-13 
H.1-15 
H.6-12 
Β.5-12 
Μ.8-5 
P.Y-9 
P.Y-8 
I.1-9 
I.1-11 
I.1-15 
Le 1=15 
N.1-15 
I.5-1 
I.4-9 
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M.8-4 
N.Y-4 
N.Y-5 


G.9-3 


H.1-11 
I.35-9 
1.375 


1.2-13 
I.2-19 
1.25 
I. 2=2 
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I.4-11 
@ .4-3 
I.4-6 
I.4-8 
150 
121 
ID12 
ID11 
ID12 
ID13 
ID14 
ID15 
ID2 
ID3 
Θ... 
ID5 
ID6 
ID? 
ID8 
ID9 
INTA 
INTP1 
INTPIN 
INTPIN/ 
INTPOUT / 
INTR/ 
IOPULSE 
IORST 
IORST/ 


I.4-11 
1.4-3 
1.4-6 
1.4-8 
D.X-5 
D.X-5 
D.9-11 
D.9-13 
D.8-3 
D.8-5 
D.8-11 
D.8-13 
D.X-11 
D.X-15 
D.W-3 
D.W-5 
D.W-11 
D.W-15 
D.9-3 
D.9-5 
*NA-40 
E.W-6 
E.W-4 
*NA-96 
*NA -95 
*NB-29 
*NA-74 
*NA-7@ 
E.X-15 


I.4-10 
M.4-2 
J.4-1€ 
ο 1-7 
6,5718 
C.5-16 
D.5-14 
D.5-12 
D.5-9 
D.5-7 
D2525 
D. 5-3 
C. 5-14 
C. 5-12 
C. 5-9 
C. 5-7 
C. 5-5 
C. 5-3 
D.5-18 
D.5-16 
D.1-7 
G.9-13 
G.1-10 
J.1-4 
J.1-1 
M.1-19 
b.7-13 
18-1 
E.8-15 


Pele? 
1.6-18 
I.6-16 
J.6-14 
J.6-12 
J.6-9 
J.6-7 
J.6-5 
J.6-3 
I.6-14 
16-18 
1.6”9 
ΤοΒ τ 
1:655 
I.6-3 
J.6-18 
J .6-16 
I.2-12 


K.2-2 
G.1-11 
L.1-3 
M.1-4 
πα 
1. 2=1 
F. 813 


*9/22/81 


9419€ 
R.35-10 
R.5-9 
P.5-7 
Ρ.5-6 
0.1-5 
0.1-14 
0.1-2 
0.1-11 
R.S3—7 
R.3-6 
Q.1-5 
Q.1-14 
Q.1-2 
Q.1-11 
P.3-10 
P.35-9 


L.1-1 


E15 
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Rete? 
R.1-5 
R.1-14 
p.192 
P. L Sah 
0.3-10 
0.3-9 
0.3-7 
0.5-6 
R.1-e 
ἨΈ 
Q.35-1€ 
Q.5-9 
Q.3-7 
9.2-6 
P. 1=5 
P.1-14 


G.8-1 
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IORST/ 


IRQ/ 
J.š—-11 
J.5-35 
J.5-6 
J.5-8 
J.4-11 
J.4-8 
Jsl 
A Gee 
K.1-11 
K.1-5 
K.1-6 
o ^" 
K.2—-11 
K.2—-3 
K.2-6 
Κ.2-8 
K.4-10 
Κ.4-2 
K.4-4 
K.4-6 
K.W-15 
K< &=1 
K. X=5 
Ko als) 


@ 


L.Y-9 


J.5-2 
N.5-15 


Et =21 
J.3-11 
J .3-3 
J.376 
J.5-8 
J.4-11 
I.4-12 
J.Y-1 
J.Y-16 
K.1-11 
K.1-5 
K.1-6 
K.1-8 
K.2-11 
Κ.2-5 
K .2-6 
K.2-8 
I.5-2 
K.4-2 
K.4-4 
Kob-5 
K.W-15 
K.X-1 
K.X-5 
K.X-15 
L.Y-34 
b.r-9 


J.35-9 


L.8-3 
J.5-12 
J 3-4 
K.3-1 
Ν.6-1 
J.2-4 
J.4-8 
J.X-6 
J.X-7 
K.1-10 
K.2-15 
K.2-9 
K.2=12 
0.4-12 
K.2-4 
Η δα 
0.3-11 
K.4-12 
N.5-5 
N.5-4 
Κ.4-6 
J.X-5 
K.X-4 
K.X-6 
K.X-10 
M.8-7 
Q.Y-1 
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M.8-3 


Κωδ-15 


M.3-1 


K.2-19 


Κ.1-4 


P.4-12 Q.4-12 R.4-12 


P.3-11 Q. 5-11 R. 3-11 


K.X-7 
K.X-11 
M: 7=7 
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LPS/ 
θι»ιει., 
M.7-3 
μ.7-5 
Μ.8-11 
M.8-12 
MAS 
MAL 
MA10 
MA11 
MA12 
MA13 
MA14 
MA15 
e... 
MAS 
MA4 
MA5 
MA6 
MA? 
MA8 
MA9 
MADEN/ 
MBUSY 
MCLR/ 


*CB-10 
H.2-11 
μπα 
ναί» 
M.8-11 
G.35-6 
ς.6-7 
G.6-6 
G .5-2 
G.5-3 
B 5-7 
Β.5-6 
H.5-2 
H.5-3 
G.6—-2 
6.6-5 
Ε.6-7 
H.6-6 
H.6-2 
H.6-3 
G.5-7 
G.5-6 
J.5-13 
L.1-10 
G.5-12 


MDATOA/ G.3-13 


MDCHACT 


L "obi 


MDCHACT/ M.4-10 


MDCHREQ 


I.4-1 


N. Y~2 
H$2-7 
n Tes 
ἘΠ 
M.4-4 
M.8-12 
14672 
I.6-4 
J.6-6 
J.6-8 
J.6-11 
J.6-13 
J.6-15 
J.6-17 
136-6 
I.6-8 
I.G8-11 
I.6-13 
L. 6=15 
1.,6-17 
J. 6-2 
J .6-4 
M.6-6 
J.5-12 
J.5-1 
N.7-4 
M.4-9 
N.4-9 
M.6-4 
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M.Y-4 


M.7-14 M.?-11 


N.5-2 N.3-4 N. 5-19 
Q.Y-11 

K.3-2 K.3-9 L.T-18 
N.7-10 

15 N.5-9 
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MDCHREQ/ E.W-2  L.1-4 — M.4-11 N.3-8 
Qoosgm m.2-2 M.4-5 M.6-5 

MDCHSEL/ J.4-9 κΚ.1-1 M.4-6 

MDCHSYN N.3-5 N.3-12 

MDONE — K.2-1 Κ.δ  K.3-5 1.1-13 

MINTDIS/ K.2-5  M.3-8 

MINTREQ M.3-5 — M.1-3 N.1-1 

MINTREQ/ E.4-5  M.3-6 1.1-2 


MMCLR L.Y-14 L.Y-19 N.7-9 
MRDY/ L.8-36 M.8-13 

MSKO F, 741 G.1-8 M.5-11 
MSK0/ *NA-38 G.1-9 


MSTART/ G.3-7 {2-5 K.35-10 Ν. 7-11 
Q....., G.3-4 H.2-6 K.1-15 K.4-9 


Ν.5-14 F.5-11 N. 5714 


NMI/ J.X-26 L.8-2 M.8-2 
ODS C.6-18 E.6-9 G.6-9 R,4-15 R.1-6 
051 C .6-17? Ε.6-12 G.6-19 R.4-1 R.1-15 
0D19 D.6-14 E.5-1 G.5-1 M.3-12 P 4-2 Ρως 
0511 D.6-15 E.5-15 G. 5=15 P.4-3 P.1-16 
0D12 D.6-8 ΚΡ 8 F.5-9 H.5-9 0.1-6 0.4-15 
0D13 Da6=7 F.5-12 H.5-12 0.1-13 0.4-1 
0D14 D.6-4 F.5-1 H.571 0.1-3 0.4-2 
0D15 D.6-3 F.5-15 H.5-15 0.1-10 0.4-3 
0D2 C.6-14 E.6-1 G.6-1 R.4-2 Β.1-5 
ODS C.6-13 E.6-15 G.6-15 R.4-3 Β.1-16 
e. 0.6-8 F.6-9 H.6-9 Q.1-6 Q.4-15 
055 ς.6-7 F.6-12 H.6-12 Q.1-13 Q.4-1 
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0D6 
o 
0D8 
059 
PULSE 
Q.Y-10 
RAM/ 
RAME/ 
RBUSY 
RCLR/ 
RDAV 
RDCHA/ 


RDCHREQ 

0 EL 
RDGSEL/ 
RDIA/ 
RDIB/ 
RDIC/ 
RDOA/ 
RDOB/ 
RDOC/ 
RDONE 
RDS/ 
RDY/ 
RESET/ 
REV 


| rv 


C.6-4 
C.6-3 
D.6-18 
D.6-17 
E.7-1 
F.5-9 
J.4-1 
J.4-3 
E.8-10 
F.9-12 
E.Y-11 


E.8-9 
J 6-1 


F.X-5 
E. 9-2 
N.5-15 
D.X-12 
E.X-9 
C.5-1 
E.7—4 
F.9-14 
E.5-11 
F.W-5 
*CB-38 
*CB-4 
J.X-4 
L +Y =2 
*CB-28 


RINTDIS/ F.7-8 


E4671 
F.6-15 
E. 5-9 
E.5-1£ 
E.7-11 
Q.Y-12 
N.5-1£ 
L.35-18 
F.Y-15 
G.9-4 
G. πο 


E.8-3 
J ° 6-19 


F.8-9 
F.X-5 
N.4-4 
D.W-12 
F.9-10 
6.9919 
F.9-13 
G.5-11 
E.6-11 
G.7-11 
L.W-5 
M.Y-2 
L.W-9 
P.Y-13 
PT-1e 
G.9-9 


Hi6-1 
H.6-15 
G.5—-9 
ς.5-10 


F.W-2 


F.5-4 


E.8-5 
G.8-5 


D.9-12 


*9/22/81 
Q.1-3 
Q.1-12 
P.4-15 
P.4-1 


ΕΚ 


D.8-12 
D ,5-19 
H.6-11 


F.9-15 
J.2-1 


M.1-2 


PAGE 
Q.4-2 
Q.4-3 
P.1-6 
P.1-13 
G.7-9 J.4-12 


I.4-15 I.6-1 


M.1-15 


F.9-9 


F.9-11 


Hob-1] 
F.6-11 F.5-11 


M.B8-1 


I.6-19 
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RINTREQ F.W-9  M.1-11 N.1-18 
θενοιιι, ν.:-:: 1:  R.4-11 
RNOYA2/ N.4-10 Ο0.4-11 Ρ.4-11 
RNZ L.W-2  ϱ.1-6 
RNZ/ «05-56 . N.Y-12 Q.Y-5 
ROM1/  L.4-18  N.5-9 


ROUT/ ς.6-11 D.6-11 E.?-8 G."7-4 G.8-11 
RPUCLR/ G.7?-13 Ga tal G.9-6 G.9-2 
RQENB F.W-11 Ε.8-11 G.1-6 M.3-3 N.d-11 


ROM2/ L.6-18 N. 5-7 
] 


RQENB/  *NB-41 G.1-5 
RS252IN K.X-8 K.Y-2 
RS2320UT K.X-13 K.Y-14 


RSEL E.X-2 E.7-2 J.2-5 J.2-2 
6... ... F.9-4 H.2-13 

RST H.5-14 H.6-14 G.6-14 G.5-14 F.5-14 F.6-14 Ε.6-14 

E.5-14 E.X-12 

RSTRT/ — F.9-7 G.7-10 — G.9-1 

RWD L.Y-7 P.Y-3 

RWD/ *CB-18 P.Y-4 | 

RX K.X-17 . K.X-16  J.X-12 


SDCHRQ/ M.4-13 N.4-12 N.3-35 


SELB/  *NA-82 J.2-6 L.1-8 
SELD/  *NA-80  J.2-3 L.1-11 
SL1 0.X-15 0.Y-3 
SL1/ *0B-28  O.Y-4 
SL2 0.X-12 ο.Υ-1 

0: *CB-20  O.Y-2 
SLD/ *CB-2 M.Y-17  N.I-9 
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SLG 
[| 343, 
SMDONE/ 
SRDONE/ 
STRT 
STRT/ 
TR1 
TR1/ 
TR2 
TR2/ 
TRACK/ 
VALID/ 
WCO 

WC1 
9... 
WC11 
WC12 
WC13 
WC14 
WC15 
WC2 
WC3 
WC4 
WC5 
wc6 


P.Y-1 
*CB-34 
Κ.5-5 
E.Y-3 
*NA-52 
F.2-10 
0.X-19 
*CB-590 
0.X-16 
*CB—-46 
N.4-13 
F.1-6 
C .5—-2 
C.5-4 
D.5-6 
D.5-8 
D.5-11 
D.5-13 
D.5-15 
D.5-17 
C.5-6 
C. 5-8 
C.5-11 
C.5-13 
C.5-15 
C5217 
D.5-2 
D.5-4 
L.Y-6 
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Q.Y—-2 
Pate 
Q.Y-4 
F.W-3 
F.1-1 
fale 
0.¥-9 
0.Y-8 
0.Y-5 
0.Y-6 
0.X-11 
I.3-13 
E. 6-7 
F. 6—6 
E. 5-2 
E. 5-5 
F. 5-7 
F.5-6 
F.5-2 
F.5-3 
E.6-2 
E.6-3 
F.6-7 
F.6-6 
F.6-2 
F.6-3 
E.5-7 
E.5-6 
0.Y-13 
COPYRIGHT BY 
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WDE/ 

D E 
WDS/ 
WEN 
WEN/ 
WND/ 
WNOVA1/ 
WNOVA2/ 
WNZ 
WN2/ 
WRITE/ 
XTAL1 


XTAL2 


*CB-42 
L.W-4 
*CB-48 
L.Y-5 
*CB-26 
*CB-6 
N.4-15 
N.4-14 
L.W-6 
*CB-44 
J.X-28 
L.8-38 
L.8-359 


0.Y-12 
Q.Y-8 
N.Y-13 
P.Y-5 
P.Y-6 
L.W-24 
Q.3-12 
0.3-12 
0.Y-11 
0.Y-12 
L.Y-22 
M.9-1 
M. 9-2 


Q.Y-9 


M.Y-15 
R.3-12 
P.5*12 


L.W-135 


*9o/22/81 


N.Y-6 


L.8-52 


L.3-17 
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Ν.4-5 
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TOTAL NUMBER OF WIRE WRAPS: 1540 


| 
| TOTAL PINS USED: 998 
| 
| 


I MTAPE.MS 19/21/81 12:42: 4 ATA CORPORATION 6899 ASSEMBLER 1) 


MAG TAPE INTERFACE PROGRAM | 
12/18/80 B. UNDERHILL | 
| 


x 

* 

* 

* M6809 I/O DEFINITIONS 

* RAM šE820 | 
* ROMI 7000 | 
* ROM2 $F800 | 


* REGISTERS WHICH COMMUNICATE WITH THE NOVA 


C204 ZNAH EQU 90004 NOVA DOA/DIA, HIGH ORDER 
6605 ZNAL EQU $C205 LOW ORDER (WRITE SETS “DIA”, READ Gr 
ce22 ZNBH EQU $C002 NOVA DOB/DIB | 


0605  ZNBL EQU 2 | 
COO0 “ZNCH EQU CID NOVA DOC/DIC 

C001  ZNCL EQU $cee1 

COQ6 ZNDH EQU $ COBE NOVA DATA CHANNEL IN/OUT | 
COO? ZNDL EQU $C007 


* OTHER NOVA RELATED LINES 


C888 ZDONE EQU 50860 WRITE: SET “DONE” TO THE NOVA | 
009 ZDCHR EQU $C209 WRITE: SET DATA CHANNEL REQ | 
C28 ZDC HC EQU $ceea READ: SET THE DCH CYCLE COMPLETE FLA 
| 
* 6522 PIA LINES 
96001 ZPORTA  EQU ΦΡ061 PORT À - OUTPUTS TO DRIVE 
< BIT- REVERSE MOTION 
< 1 FORWARD 
e τ 2 HIGH SPEED (EITHER DIRECTION) 
* Š WEN- WRITE ENABLE & ERASE ON 
* 9 RWD- REWIND (COMPLETES AUTOMATICALLY) 
x 7 SLG*- SELECT GATE TO DRIVE- ENABLES SF 
Dg99 ZPORTB EQU $ DOBS PORT B- 3 INPUTS 
* 5 INPUT BOOT STATE- 2 IF BOOT 
* 6 INPUT MBUSY- 1 IF NOVA HAS SET BUSY 
* 7 INPUT MDCHACT- 1 IF DATA CHANNEL CY DC 
Ρ205 ZDIRA EQU $ D23 DIRECTION REGISTER FOR PORT A | 
Deez ZDIRB EQU $0902 DDR FOR B, Ø=INPUT, 1=OUTPUT 


ϱ0086 . T2LOL EQU 690048 TIMER#2 LO ORD LATCH 
DOGS T2HOC EQU $DOB9 TIMER #2 HI ORD COUNTER 
DOOB T2ACR EQU 490068 TIMER #2 CONTROL REG 


DOC ZCTRL EQU $DØØC PERIPH CTRL REGISTER, CONTAINS $11 
DØD ZINT EQU $D@@D INTERRUPT FLAGS REGISTER (READ) 
DOZE ZINTE EQU $ DØZE INTERRUPT ENABLE BITS REGISTER (WRIT 


* LATCH BUFFER OUTPUTS | 


0608 . DPORTB του $C098 
* BITS 2-3 OUTPUTS TO DRIVE 


* BIT Ø TR TRACK SEL 

* 1 TR2 @=T1, 1-T2, 2515, 23-74 

* 2 SL1- DRIVE SELECT 

* 3 SL2 | 

* BIT 5 CONTROLS DATA CHANNEL DIRECTION | 
f * 5 DATA CHAN DIRECTION- Ø=0UTPUT FROM NOY 

* INPUTS FROM DRIVE VIA TEE 242 | 

CO?G 18240 EQU $C009 READS THE 240 | 

* BIT 2 [1] SLD- ADDRESS RECEIVED | 

* 1 [2]  BSY- FWD, REV, OR DING | 

* 2 [4] WND- WRITE ENB IS pin IN DRIVE | 

CORPORATION 
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| 

* 3 [8] FUP- TAPE IN & UNPROTECTED | 

* 4 [10] FLG- HAS REWOUND OR LOADED | 

x 5 [20] EWS- FARLY WARNING SENSE, EOT 

* 6 [40] LPS- LOAD PT SENSED IN REV (BOT) 

* 7 [80] RDY- TAPE IN & LAMP ON & +5 OK 


* 6852 USRT REGISTERS 


| D800  ZSYNCØ τοῦ $ D880 STATUS (READ) ------- CTRL1 (WRITE 
| * BIT Ø  RCVR DA 1=RCVR RESET 
1 XMT TDRA 1=XMTR RESET 
2 (DCD) DAD STRIP SYNC 
3 (CTS) WND CLEAR SYNC 
4 XMT UNDERFLO T INT ENB =Q 
5 OV ERR R INT FNB -2 
6 PAR ERR AC1 (SEL OUTP REC 
7 INTR REQ AC2 (FOR ZSYNC1) 
D802 SYNC1 EQU ,$D802 DATA REGISTER 


READ: GETS INPUT DATA BYTE 
WRITE: IT IS ONE OF 4 REGISTERS 
WRITE REG3: OUTPUT DATA BYTE 
WRITE REG2: SYNC CODE 


WRITE REG@ -------- 8561 CODES ARE: 
BIT 6 PC1 (22) INT/EXT (50) 
1 (DTR*) WDE* NSYNC (51) 
2 NBYTES (51) CLR CTS 
3 WS1 CLR TUF 
4 wSe2 X 
5 ws3 X 
ο 6 XMT SYNC ον UF X 
7 ERR INTR (0) X 


NOTE- INITIAL START MUST GO TO ‘INIT’ 
FAST INTERRUPT MUST GO TO “FIRQ’ 


* 3b * Gb Gb $ 3 3 030 3b O6 3630 4€ 8 gp C3 HHH XR HH σα 


0002 
2002 
9001 
9092 
£002 
2092 
9902 
0002 


2008 
9249 
ODF 
29627 
905" 
92022 
2021 
9091 
9021 
2091 
2061 
0921 
9201 
29091 
£091 
2991 
20901 
9002 
2091 
2091 
90901 


* RAM ALLOCATIONS 
* THE BASE (DIRECT ADDRESSING) PAGE IS DEFINED AT LOC 2 | 
* BUT WILL BE AT E802 AT RUN TIME (DP-$EB8) 


XX 

TY 
TMPA 
TIMO 
NOVCOM 
NOVADD 
NOYWC 
STATUS 


dé 3&3 2 2 G6 3 30 30 dt 30 36 3L Gt d& αμ dt 30 3B 3t HK X 


STATI 
STATII 
LACHH 
LACHL 
ERRBH 
ERRBL 
MPORTB 
PARITY 
LRCC 
FSEEN 
PECNT 
LCOMM 
ECHAR 
FCHAR 
ERRBIT 
INTRW 
READSP 
RECCNT 
TAPDIR 
RSYNC 
RFMAR 


ORG 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 


$0 


N N N N ο ND 


DIRECT PAGE- RUNS AT E800 
TEMP 
TEMP 
TEMPORARY- FOR TEST PROGRAMS 
TIMEOUT COUNTER FOR READ ROUTINE 
NOVA COMMAND (DOA) 
NOVA'S DMA ADDRESS 
NOVA^S WORD COUNT (NEGATIVE) 
DIA STATUS TO NOVA 


THIS IS A LATCH FOR BITS 1 3 5 7 10 14 
ΤΗΕ OTHERS ARE READ DIRECTLY FROM STATUS 


LINES 


WHEN NEEDED 


STATUS BITS ARE: (UPPER BYTE) 


BIT 7 


co 
= 


Hg 
11 


QENGAPLUANE QHN Οὐ» 
Ὁ 


(NOVA 2] ERROR- AN ERR BIT IS ΟΝ 
*DATA LATE DURING LAST READ 
REWINDING 

*ILLEGAL COMMAND 

EI DENSITY- ALWAYS 1 

*PARITY ERROR 

*EOT- ERROR IF FWD MOTION REQ. 
*FILE MARK (ERROR) 

BYTE 

BOT (ERROR ONLY IF REVERSE) 
9-TRACK- ALWAYS 1 


| *BAD TAPE 


[12] 
B ES 
[14 


WRITE LOCK (ERROR ONLY IF WRITE) 
*ODD CHARACTER 


[15] READY 


NOTE: 


ERROR BIT IS ALWAYS ON IF A STARRED 


BIT IS ON. IT ALSO MAY BE SET BY OTHER 
CONDITIONS DURING AN OPERATION. WILL STAY 
SET TILL NEXT OPERATION OR RESET. 


ESOS IS IN) PS pa ED a i = 


DEFAULT VALUE FOR STATUS 
FOR STATUS 1 - 9 TRACK 
LATCHED BITS IN UPPER BYTE 
LATCHED BITS IN LOWER 
BITS THAT CAN CAUSE THE ERROR BIT 
TO CO ON 
MEMORY IMAGE OF DPORTB 
‘OR’ OF STATUS BYTES HAVING PAR. ERR 
LRCC OF A RECORD 
NO OF FILEMARKS SEEN SINCE REW. 
NO OF BYTES WITH PARITY EROR 
LAST COMMAND ISSUED 


FIRST CHAR OF A RECORD- 22 OR 55 (F. 
TEMP- BITS THAT CAUSE ERROR FLAG I 
INTERRUPT IS HANDLING READ(£) ee 
@=READ, 1=SPACE REV, 2=SPACE FWD | 
RECORD COUNTER FOR SPACING 

TAPE DIRECTION: 2=FWD, 1=REV 

READ SYNC CHAR NOW BEING USED | 


FILE MARK CHAR LOOKING FOR | 
H H CORPORATION / 


EOTBIT 
COUNT 
WRITOK 
NPAGW 
NPAGR 
TEMPY 
BSYSET 
PSCNT 


POSTAM 


BUFF 
BUFTOP 
BUFTR 
RAMTOP 
τε 

E 


RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
ORG 
RMB 


ORG 
RMB 
RMB 
EQU 
EQU 


NEP s PRR Pe 


$ EB6€ 


MASK FOR TESTING EOT/BOT 

FOR WRITE ROUTINE 

9 IF READ-AFTER-WRITE ERRORS 
N PAGES TO WRITE 

N PAGES TO READ-AFTER-WRITE 

HOLDS Y TEMPORARILY (WRITE) 

RAM FLAG TO INDICATE ECLIPSE SET "y 
WRITE POSTAMBLE COUNT 


POSTAMBLE 
IS MEM BUFFER 
(TOP OF BUFFER)+1 


ADJUSTABLE BUFF TOP FOR READING 
LAST LOC IN RAM- STACK TOP | 


* NOTE- DEBUGGER USES RAM FROM F830 TO E858 


F829 
F82A 
F82C 
F82E 
F830 
F832 
F834 
F836 
F838 
F83A 
F83C 
F83F 
F841 


F843 
F845 
F847 
F849 
F84B 
F84E 
F851 
F853 
F856 

Ε F859 
F85B 
F85D 
F85F 
F862 


16608 EBFF 
86 E8 
1F 8B 
86 28 
97 oD 
86 40 
9T ΘῈ 
AD OF F"F*E 
BD FDCS 
1C EF 
BD FE11 
96 26 
26 69 
B6 DOLL 
85 40 
26 22 
20 Fe 
4} 

97 26 
86 22 
97 1C 
86 70 
97 1D 
86 55 
97 1E 
86 20 
97 1F 
B6 D9 
85 20 
27 2C 
86 28 
97 25 
86 49 
97 OE 
BD FE11 
FC C022 
DD 99 
FD C222 
FC C209 
ον 22 
8A 80 
DD OB 
FC COG4 
DD 07 


OPT 


G 


* BEGINNING OF CODE 
* NOTE- DEBUGGER ROM IS ASSUMED TO BE IN FOQO-F7FF 


INIT 


* 


ORG 
LDS 
LDA 
TFR 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
ANDCC 


* MAIN LOOP 
* KEEP STATUS UP TO DATE, NOVA MAY BE READING IT 
* LOOK FOR A COMMAND ISSUED 


MAIN 


ee 3t Κα T+ 


CMDISU 


JSR 
LDA 
BNE 
LDA 
BITA 
BNE 
BRA 


CLRA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
BITA 
BEQ 


SFESL 
#RAMTOP 
#5E8 
A,DP 
#STATI 
STATUS 
#STAT1I 
STATUS+1 
[S F7FE] 
SELUQ 
#$EF 


SHOW 
BSYSET 
CMDISU 
ZPORTB 
#549 

CMDISU 
MAIN 


FORM FCB’S 


INITIALIZE STACK 
SET THE DIRECT PAGE REG. TO F8( 


ADD HIGH DENSITY BIT 
CLEAR STATUS LATCHES 
ADD 9 TRACK BIT 


οκ INITIALIZE DEBUG RE 
SET UP & INITIALIZE ALL 
ENABLE IRQ 


MAINTAINS DIA STATUS 
SEE IF NOVA BUSY HAS BEEN SET 
IF SET, COMMAND HAS BEEN ISSUED | 
SEE NON LATCHED BUSY | 


YES GO DO COMMAND 
NO, JUST LOOP AROUND 


A COMMAND HAS BEEN ISSUED 

FIND OUT WHAT, DISPATCH & DO IT 

FIRST CHECK TO SEE IF A BOOT CONDITION - 

- NO DOA, DOB, DOC. THESE VALUES HAVE TO BE 
- SET UP FOR A BOOT 


RESET "BUSY" 

DIRECTION ALMOST ALWAYS FWD 
SYNC CHAR, ALMOST ALWAYS 70 
FILE MARK CHAR- 55 IF FWD 

USUALLY, TEST FOR EWS (FWD) 


CHECK BOOT BIT 
IF CLEAR DO BOOT 


* NOT BOOT - NOW, CLEAR ALL THE LATCHED STATUS (ERROR) BITS 
* COPY THE DOA, DOB, DOC VALUES INTO MEMORY 


LDA 
STA 
LDA 
STA 
JSR 
LDD 
STD 
STD 
LDD 
BEQ 
ORA 
STD 
LDD 
STD 


#STATI 
STATUS 
#STATII 
STATUS+1 
SHOW 
ΖΝΒΒ 
NOVADD 
ZNBH 
ZNCH 
SAVWC 
#580 
NOVWC 
ΖΝΑΗ 
ΝΟΥ ΟΟΜ 


CET INIT VAL | 
CLEAR THE LATCH BITS 


(CLEAR ALL) 
BRING STATUS UP TO DATE 
COPY ΤΗΣ DOB 


PUT IN DIB ALSO 

COPY THE DOC 

IF WORD CNT=@ LEAVE IT 
ELSE SET HIGH ORDER BITS 


COPY THE DOA 


AA CORPORATION / 


C4 
D7? 
ο 
57 
8E 
6E 


BD 
B6 
85 
er 
CC 
DD 
86 
97 
86 
97 
CC 
DD 
7E 


96 
8A 
97 


B6 
84 
B? 
B6 
85 
26 
7F 
86 
B? 
BD 
B? 
7E 


EXTRACT THE 3 COMMAND BITS 
SAVE COMMAND VALUE 
GET THEM INTO BITS 3,2,1 


GO TO THE RIGHT ROUTINE 


— SOMEBODY HIT THE PROGRAM LOAD SWITCE 


REWIND FIRST 
WAIT FOR FLAG TO COME UP 
FROM DEI 


USE € FOR ADDRESS 
INIT STATUS 
INIT STATUS + 1 


USE 94060 FOR WORD COUNT 
CO READ IN Á RECORD 


eoo 
291 

612 (OFF LINE- NOT USED) 

£11 

120 

101 

110 

rrt 
COMMAND CODE FOR WRITE FMK 
COMMAND CODE FOR REWIND 


ANDB #$38 
STB LCOMM 
ASRB 
ASRB 
LDX #DISPA 
JMP [3,X] 
* BOOT ROUTINE 
BOOT JSR REWI 
BOOT2 LDA ZR249 
BITA 4510 
BEQ BOOT2 
LDD 40 
STD NOVADD 
LDA #STATI 
STA STATUS 
LDA #STATII 
STA STATUS+1 
LDD #$-400 
STD NOVWC 
JMP READR 
* DISPATCH TABLE FOR COMMANDS 
DISPA FDB READR 
FDB REW 
FDB ILLEG 
FDB SPACEF 
FDB SPACER 
FDB WRITE 
FDB WRITEM 
FDB ERASE 
COMWF EQU $30 
COMRW EQU $08 


* ILLEGAL COMMAND- SET 
ILLEG LDA 


ORA 
STA 


STATUS 
4519 
STATUS 


ILLEG” STATUS BIT & RETURN 


BIT 4 OF UPPER WORD 


* END OF COMMAND EXECUTION 
* SET UP DIA STATUS, SET 'DONE' TO NOVA 
ECOMM LDA 


ANDA 
STA 


EWTNB LDA 


LEE JE HH 


BITA 
BNE 
CLR 
LDA 
STA 
JSR 
STA 
JMP 


ZPORTA 
#5FC 
ZPORTA 
ZR240 
4$02 
EWTNB 
ZPORTA 
#ZREG1 
ZSYNCO 
SHOW 
ZDONE 
MAIN 


ROUTINE TO REWIND 
NOTE: THERE IS A DELAY BEFORE THE NOVA SEES THE 


^REWINDING^ BIT IN THE DIA STATUS WORD 
n | £4 CORPORATION / 


STOP TAPE MOTION 


WAIT FOR DRIVE NOT BUSY 
BEFORE ALLOWING NEXT CMD 


RESET WEN IF IT WAS SET 
RESET THE USRT 
(CTRL REG 1 ) 
SETS UP DIA & DIB 
SET DONE TO THE NOVA 
THEN STAY IN MAIN LOOP 


l 


* THIS ROUTINE RETURNS BEFORE THE REWIND IS FINISHED 


* 
REW 


REWW 


WNCM 


JSR 


JSR 
LDA 
ANDA 
STA 
STA 
LDA 
BITA 
BNE 
LDA 
BITA 
LBEQ 
LDD 
CMPD 
LBNE 
BRA 


* SUBROUTINE 


REWI 


LDA 
STA 
ANDA 
STA 
CLR 
RTS 


TO 


SELUS 


REWI 
MPORTB 
#5 FC 
MPORTB 
DPORTB 
28240 
452 
REWW 
ZPORTB 
4540 
ΜΑΙΝ 
ZNAH 
#COMRW 
MAIN 
WNCM 


FOR TESTING, ONLY 
SO THIS CAN BE CALLED FROM DEBUG 
START MOTION 
NOW SET TRACK 1 


SAVE IN MEMORY IMAGE 


WAIT TILL MOTION STOPS 
BEFORE EXECUTING NEXT CMD 
LOOK FOR BUSY LINE DOWN 
AFTER BOOT, BUSY IS NOT CLEARED. 
SO LOOK AT NON-LATCHED BUSY. 
IF NOT SET, GO TO MAIN LOOP FOR 
NEXT CMD. ELSE, IF LAST CMD WAS 
RWND, WAIT FOR BSY DOWN OR NEW CMD 
NEW CMD, NOT REWIND. 
WAIT BEFORE EXECUTING NEXT. 


INITIATE REWIND MOTION 


#$20 
ZPORTA 
89 00 
ZPORTA 
FS EEN 


PUT IN REWIND BIT 
THEN PUT IT DOWN AGAIN 


A PULSE IS ALL THAT IS NEEDED 
CLEAR FILE MARK COUNTER 


ATA | 
1 
| 
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F8FD 
F8FF 
F981 
F903 
F985 
F908 
FOOA 


F90C 
F90E 
F912 
F912 
F914 
F916 
F918 
F91A 
F91C 


FSIE 
F920 
F922 


F925 
F927 
ΕΘΖΑ 
F92C 
F92E 
F939 
F933 
F936 
F939 
F93C 
F93F 
F941 
F944 
F946 
F949 
FO4B 


86 
97 
DC 
DD 
CC 
DD 
20 


86 
97 
86 
97 
86 
97 
86 
97 
20 


22 
19 
ØB 
1A 
9900 
OB 
16 


44 
1D 
54 
1E 
40 
1F 
21 
1C 
E1 


* SPACE FORWARD 

* USES THE READ ROUTINE, BUT HAS THE FOLLOWING DIFF.: 

DONT STORE DATA 

DONT TEST LRCC OR PARITY 

AFTER READING A RECORD, TEST THE RECORD COUNTER, 
GO AGAIN IF NECESSARY 

* A FILE MARK rS TERMINATE THE SPACING LOOP 


3 * 3t #* 


SPACEF LDA 
SPACE STA 
LDD 
STD 
LDD 
STD 
BRA 


* SPACE REVERSE 


SET 'READSP' FLAG 


READSP 

NOVWC GET RECORD COUNT 

RECCNT 

80 THEN SET WORD COUNT TO 2 
NOVWC THIS KEEPS IT FROM STORING A πα 
RXS THE REST IS IN COMMON WITH REA 


* USES THE READ ROUTINE, AS DOES SPACE FORWARD 
* YOU MAY NOT GET ANY SYNCS IN REVERSE, SO THE 
* ONLY REQUIREMENT IS TO SEE DAD GO UP THEN DOWN. 


SPACER LDA £544 USE DIFFERENT SYNC CHAR 
STA ΒΘΥ͂ΝΟ 
LDA #$54 
STA RFMAR FILE MARK RECOGNIZER 
LDA #4 
STA  EOTBIT LOOK FOR BOT, NOT EOT 
LDA 41 
STA  — TAPDIR SET UP REV DIRECTION 
BRA SPACE ALSO STORE 1 IN READSP 
* READ A RECORD 
* BEFORE STARTING MOTION, LOOK AT EWS (EOT FLAG) 
* IF HIGH HERE, DONT START READING- CHANGE TRACKS 
* IF T1,2, OR 3 NOW, REWIND & START OVER 
* IF ON TRACK 4, RETURN WITH EOT ERROR TO NOVA 
READR LDA #0 
STA READSP SET FLAG- WE ARE READING 
RXS JSR  TSTEOT TEST FOR EOT 
* SET UP TO READ THE RECORD 
LDA ΤΆΡΡΙΒ START SLOW FWD MOTION 
STA ZPORTA 
LDA ΜΡΟΒΤΒ SET DMA DIRECTION- TO NOVA 
ORA #$2@ 
STA MPORTB SAVE IN MEM IMAGE LOC 
STA DPORTB 
LDX 425 WAIT 25 MSEC 
JSR WAIT DONT READ CRAP IN THE CAP 
LDA ZINT 
LDA 2ΡΟΒΤΑ CLEAR THE LATCH FOR CA1 IN 6522. 
LDA #$88+ZREG1 RESET THE USRT (& DAD LATCH) 
STA — 2ZSYNCO ALSO SETS CLEAR-SYNC BIT 
LDA RSYNC SET UP SYNC CHAR 
STA ZSYNC1 | 
CLR PARITY 
CLR 


PECNT PARITY ERRO TER | 
A CORPORATION / 


F94D 86 22 LDA #$22 INITIALIZE LRCC 


FO4F 97 11 STA LRCC | 
F951 OF 18 CLR INTRW SET INTERRUPT RTN TO READ MODE | 
£ F953 B6 C608 LDA ZDCHC SET THE DCH COMPLETE FLAG 
F956 109E ØB LDY NOVWC KEEP WCNT IN Y 
F959 31 3F LEAY  -1,Y DECR BY 1 (NEED -WCNT-1) 
F95B CE E902 LDU #BUFF START MEM BUFF POINTER 
FO5E 86 22 LDA 4*00000010 NOW ENABLE THE USRT RECVR 
F962 B7 D800 STA ZSYNCO 
F963 86 15 LDA #$15 SET FOR 7 BIT WORD, 1BYTE MODE 
F965 587 D882 STA ZSYNC1 | 
* NOW LOOK FOR RISING EDGE OF “DAD” - IS START OF DATA 
* WE ARE SEEING DAD COMPLEMENTED IN STATUS REG. 
* IN THIS LOOP YOU CAN GET A TIMEOUT IF THERE IS NO DATA 
* IN WHICH CASE YOU RETURN WITH BAD TAPE FLAG. 
* NOTE- EWS IS CHECKED UNTIL DAD SEEN 
* AFTER THAT, JUST READ WITHOUT CHECKING EWS 
* TIMEOUT LOOP TAKES 33 CY - 22 USEC 
F968 8E 0215 LDX 8533 INIT TIMEOUT COUNTER- 3 SEC 
Ε968 ØA 16 R6 DEC FCHAR TEMP COUNTER- COUNT TO 256 
Y96D 26 23 BNE NOTIMO 
F96F 30 1F LEAX  -1,X COUNT DOWN, LOOKL FOR TIMEOUT 
F971 26  1F BNE NOTIMO COMES HERE EVERY 4.3 MS 
F973 20 a9 BRA DADBAD 
* TIMED OUT- SET BAD TAPE & RETURN 
F975 96 19 ESIG LDA READSP IF SPACING REVERSE, LOSING 
F927 81 01 CMPA #1 SIGNAL ISNT AN ERROR 
F979 26 63 BNE DADBAD OTHERWISE IT IS 
£ F97B 7E FAB? JMP EREAD 
F97E 96 ZE DADBAD LDA STATUS+1 SET BAD TAPE FLAG 
FO80 8A 20 ORA #520 
F982 97 ØE STA STATUS+1 
F984 86 $3 LDA #ZREG1 RESET THE USRT AGAIN 
F986 B7 D80Q0 STA ZSYNCO 
F989 31 21 LPAY 1,Y SEND WDCNT TO NOVA 
F98B 1ØBF C309 STY ZNCH 
F98F 7E  F8A4 JMP ECOMM 


* TEST WHETHER DAD* HAS GONE DOWN 
F9S2 B6 D882 NOTIMO LDA ZSYNCØ 


F995 85 g4 BITA #$4 
F997 27 05 BEQ DADI DAD* WENT DOWN 
F999 B6 17802 LDA  ZSYNC1 ELSE CLEAR DAD LATCH 
F990 20 CD BRA R6 AND KEEP LOOKING 
* OK, DAD HAS GONE HI- WAIT FOR DUMMY SYNC 
F99E 86 19 DADi' LDA #25 
F9AQ 4A DAD2 DECA WAIT 9@US & TRY DAD AGAIN | 
FOAL 26 FD BNE DAD2 | 
F9A3 R6 1800 LDA  ZSYNCØ | 
FOA6 85 04 BITA #4 | 
Σ9Λ8 27 05 BEQ  DAD5 O.K. DAD* STILL HI 
FOAA B6 7802 LDÀ ZSYNCi ELSE RESET THE DAD LATCH 
FOAD 20 BC BRA R6 AND TRY AGAIN 
FOAF 9E 29 DAD3 LDX  NOVADD SET UP ADDRESS 
F9B1 R6 3800 RSYN LDA  ZSYNCO TEST DAD ALSO 
@ 55 ο: BITA #$4 IF IT GOES DOWN, EXIT 
FOB6 26 BD BNE ESIGC 
FOBS R6 DOOD LDA ZINT LOOK FOR THE SYNCMATCH PULSE (« 
F9RB 85  ?1 BITA #1 | 
F9BD 27 F2 BEQ ΒΘΥ͂Ν ES | 
N HJH CORPORATION / 
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F9F4 
F9F6 


F9F8 
FOFB 


FOFE 
FAQ1 
FAQ3 
FA25 
FA28 
FAOB 
FAQD 
FAØF 
FA11 
FA13 


86 
B7 
B6 


B6 
85 
26 
85 
e 


B6 
97 
B6 
85 
27 
97 
B6 
97 
91 
1027 
86 
Β7 
1C 
20 


85 
27 


8E 
7E 


B6 
85 
27 
B6 
F6 
ED 
98 
97 
D8 
D7 


94 
26 


EBFE 
FAB? 


DESL 
21 
EF 
D8e2 
2802 
C1 
11 
11 
1d 
11 


| 


LDA πόδι SET TO 9BIT MODE, 2 BYTE 
STA ZSYNC1 
LDA ΖΡΟΆΤΑ CLEAR THE CA2 INPUT LATCH 
* WAIT FOR FIRST CHARACTER 
READF LDA ZSYNCO GET STATUS 
BITA #54 DID DAD GO DOWN AGAIN 
BNE ESIG YES, BAD TAPE ERROR 
BITA 491 IS CHAR (ACTUALLY 2 CHARS) ab 
BEQ — READF NO 


* 2 CHARS ARE AVAILABLE IN USRT 


* THE “F” CHAR- CHAR AFTER THE SYNC (SF) 
* THE “P” CHAR- 22 OR 55 
LDA ZSYNC1 GET E CHAR 
STA ECHAR SAVE IT 
LDA ZSYNC?O GET STATUS FOR NEXT CHAR 
BITA 4960 TEST PE, OV | 
BEQ R? OK | 
STA PARITY ERROR ON FIRST CHAR, STORE STATUS 
R7 LDA ZSYNCi 
STA FCEAR STORE FIRST CHAR IN MEM FOR LATI 
CMPA RFMAR IS IT A FILE MARK 
LBEQ RFMK YES, EXIT HERE 
LDA #ZREG2+$8@ ENABLE THE EIE INTERRUPT 
STA ZSYNC1 TO FIRQ | 
ANDCC #ŠBF ** PUT BF HERE TO ENABLE FIRQ | 
BRA RLOOP1 THEN GO INTO MAIN READ LOOP | 
* MAIN DATA RFAD LOOP 
* X HOLDS THE NOVA ADDRESS 
* Y HOLDS THE -WORDCOUNT (-1) 
* U HOLDS THE ADDRESS IN BUFFER RAM 
* READS 2 BYTES, STORES IN 1 WORD IN NOVA 
* ALSO STORES IN 256 BYTE CIRCULAR BUFFER IN RAM 
* IF PARITY ERROR, AN INTERRUPT OCCURS, FLAG IS SET 
* WHEN END OF DATA OCCURS, DAD GOES DOWN, INTERRUPTS. 
* IF THERE ARE MANY PARITY ERRORS, THIS LOOP WILL BE TOO 
* LONG AND OVERRUNS WILL ALSO OCCUR. 
* IF WORD COUNT RUNS OUT BEFORE END OF DATA, THE READ 
* CONTINUES BUT DATA ISNT STORED. THE LRCC MUST STILL 
* MATCH OVER THE ENTIRE RECORD. 
* THERE ARE 3 LOOPS IN THE READ ROUTINE 
* LOOP 1-- READ INTO BUFFER UNTIL FULL (OR DAD DOWN) 
NOBY1 BITA #$4 TEST DAD 
BEQ RLOOP1 IF OK 


* DAD WENT DOWN IN LOOP 1, HAVENT STARTED TO DMA YET 
* SET UP PARAMS, GO DIRECTLY TO LOOP 3 TO DMA IT 


LDX SBUFF-2 POINTER FOR SENDING 
JMP EREAD 

* LOOP 1 STARTS HERE 

RLOOP1 LDA ZSYNCO TEST STATUS 
BITA #$1 | 
BEQ NOBY1 NOT READY, TEST DAD 
LDA ZSYNC1 GET FIRST CHAR- WILL INTERRUPT | 
LDB ZSYNC1 ON ERROR 
STD QUE PUT IN RAM 
ΕΟΚΑ  LRCC PUT IN LRCC 
STA LRCC | 
EORB  LRCC | 
STB LRCC | 
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FA15 1185 EB40 


FA19 


FA1B 
FALE 
FA21 
FA23 
FA25 
FA2"7 
FA2A 
FA2D 
FA2F 
FAS2 
FAS4 
FA36 
FAS9 
FASC 
FASE 
FA4@ 
FA42 
FA44 
FA46 
FA4A 
FA4C 
FA4E 
FA50 


FA52 
FAS55 
FA58 
FASA 
FASC 
FASE 
FA60 
FA62 


FA64 
FA66 
FA68 
FA6B 
FA6D 
ΣΑ6Ε 
FAT2 
FA"4 
FA76 
FA78 
ΣΑΒ 
FA?D 
FA"F 
FA82 
FA84 


26 


CE 
BF 
$1 
27 
EC 
FD 
B7 
3B 
B6 
85 
27 
B6 
F6 
ED 
98 
97 
D8 
D? 
1185 
26 
20 
ó1 
20 


B6 
F6 
85 
et 
(6 
D7 
85 
27 


C6 
D? 
F? 
C6 
D" 
F? 
85 
27 
C6 
F7 
$2 
86 
B? 
86 
B? 


E3 


* FOR SHORT RECORDS, 


RLI2 
RLOOP2 


READM 


WCOUT 


π ox 3t κ HH 


IRQ 


HIRQ2 


* 


* ECLIPSE HAS SET 


HIRQS 


CMPU 
BNE 


LDU 
STX 
LEAY 
BEQ 
LDD 
STD 
STA 
LEAX 
LDA 
BITA 
BEQ 
LDA 
LDB 
STD 
EORA 
STA 
EORB 
STB 
CMPU 
BNE 
BRA 
LEAY 
BRA 


#BUFTR 
RLOOP1 


#BUFF 
ZN BH 


NOBYT 
ZSYNC1 
ZSYNC1 
,U** 
LRCC 
LRCC 
LRCC 
LRCC 
#BUFTR 
RLOOP2 
RLI2 
-1 h 4 
READM 


IRQ INTERRUPT HANDLER 


SET "BSYSET" IF 
CLEAR LATCHED STATUS BITS IF ECLIPSE HAS SET CLEAR 


LDA ZINT READ THE 6522 FLAG REGISTER 
LDB ZPORTB CLEAR INTERUPT 
BITA #$10 IS CB1 (BUSY) SET? | 
BEQ HIRQ2 BRANCH IF NOT | 
LDB 45510 | 
STB BSYSET SET RAM BUST FLAG NON-ZERO | 
BITA #$28 IS 082 (CLEAR) SET? 
BEQ HIRQ3 BRANCH IF NOT 

" CLEAR” 
LDB #STATI 
STB STATUS SET STATUS BYTES TO "CLEAR" 
STB ZNAH & PUT THEM IMMEDIATELY TO ECL 5 
LDB #STAT1I+1 | 
STB STATUS+1 
STB ZNAL | 
BITA 4920 IS IT TIMER 42 TIME-OUT? | 
BEQ HIRQX NO. | 
LDB #529 YES. DISABLE IT FROM FURTHER 
STB ZINTE IRQS 
LEAS 12,5 CLEAN STACK, NOT DOING RTI | 
LDA 850A STOP THE STROBES | 
STA — ZPORTA | 
LDA 4902 DISABLE THE XMITTER 
STA ZSYNCO 


DO THIS UNTIL BUFFER IS FULL 
(OR DAD GOES DOWN) 

* LOOP 2-- READ INTO BUFFER, WHILE WRITING OUT OF 

* THE SAME LOCATION BEFORE FILLING IT 


LCOP 2 WILL BE SKIPPED 


START U AT BUFFER 

SET UP NOVA ADDR 

TEST NOVA WD COUNT 

IF NONE LEFT, DONT DMA 
OK, SET UP DATA TO DMA 


START THE CYCLE 
NEXT NOVA ADDR | 
NOW LOOK FOR NEW WD READY | 


NO 
YES, GET IT- 1 BYTE AT A TIME 


PUT IT IN THE EMPTY SLOT 


BUFF NOT FULL 
BUFF FULL, RESET IT 
WD COUNT OUT, RESET TO -1 


ECLIPSE HAS SET BUSY 


es CORPORATION ] 


FABD 
FAS@ 
FA92 


FA94 
FA98 
FA9A 
FASC 
FA9E 
FAAS 
FAAS 
FAAS 


FAA6 
FAA8 
FAAB 


FAAD 
FAAF 
FABS 
FAB5 


FAB? 
FABO 
FABB 


FABE 
FAC 
FAC2 
FACS 
FAC6 


FAC8 
FACA 
FACC 
FACE 


1C 
7E 
3B 


B6 
85 
26 


1086 
2? 
9A 
97 
26 
Β6 
$5 
3B 


86 
B7 
20 


85 
192" 
ΘΕ 
1} 


1A 
86 
B7 


96 
26 
4F 
B? 
20 


SE 
20 
oF 
1226 


FD5" 


D809 
24 
12 


FFFF 
06 
12 
10 
13 
D802 
26 


$1 
D802 
F6 


64 
FF"C 
29 
51 


40 < 
05 
Dae 


19 
26 


2001 
19 


1A 
91 
1A 
ΣΕ 320 


ANDCC #$EF ENABLE IRQ 
JMP WLSBAD 

HIRQX RTI 

x 


* READ—CHAR INTERRUPT ROUTINE 
* FIRQ INTERRUPTS TO HERE ON “EIE’- PARITY ERR, 
* OVERRUN, DAD FALLING EDGE, OR (SHOULDNT HAPPEN) CTS, 
* XMT UNDERFLOW 
* ON PE OR OV, JUST SET FLAG, RETURN TO LOOP. THIS WILL 
* INCREASE THE TIMING OF THE LOOP SO THAT IT WILL FALL 
* BEHIND, AND THEN GIVE OV ERRORS ALSO. 
* ON DAD TRANSITION, THIS IS THE END OF THE RECORD. 
FIRQR LDA ZSYNCO GET STATUS 
BITA #$4 IS DAD DOWN 
BNE  ENDREC YES, END RECORD 
PE OR OV, “OR” THE STATUS WORD INTO “PARITY” IN RAM 
NOTE: IN ORDER TO CLEAR THE INTERRUPT, WE HAVE TO 
READ THE DATA CHARACTER. THIS WILL SCREW UP THE MAIN 
LOOP, WHICH IS ALSO EXPECTING TO READ IT. THAT’S 
WHAT YOU GET FOR HAVING PARITY ERRORS. | 
NOTE 2- IGNORE BAD PARITY AFTER THE WORD COUNT 
EAS RUN OUT- SO YOU DONT CHECK THE GARP AT END | 
CMPY — 4-1 | 
BEQ  FR2 NO WORD COUNT, DONT TEST | 
ORA PARITY 
STA PARITY 
INC — PECNT COUNT BYTES WITH ERRORS 


* * * * x HH 


FR2 LDA ZSYNC1 READ THE DATA CHAR 
FRS PULS D RETURN TO MAIN LOOP 
RTI 


* END OF RECORD 
* DISABLE THE EIE INTERRUPT SO YOU CAN RETURN TO 
* THE MAIN LOOP. IT WILL EXIT TO 'NOBYT' AT THE | 
* NEXT OPPORTUNITY. 
ENDREC  LDA #ZREG2 
STA ZSYNC1 


BRA FRS RETURN FROM INTERRUPT 
* TEST FOR EXIT FROM READ LOOP 
NOBYT BITA #54 TEST DAD BIT 
LBEQ READM IF DAD IS HI, KEEP LOOPING 
STX NOVADD UPDATE NOVA ADDR 
TFR U,X LOAD POINTER FOR COPYING OUT 


* OK, DAD WENT DOWN- END THE READ ROUTINE 
EREAD ORCC #$40 MASK OUT THE INTERRUPT 
LDA #ZREG1 RESET THE USRT 
STA —— ZSYNC@ | 
* BRANCH HERE BETWEEN READING AND SPACING | 
LDA ΕΈΑΡΒΡ 
BNE  — ESPAC 
CLRA ON END OF READ, 
STA  ZPORTA STOP MOTION 
BRA —— READ2 
* SPACING- TEST RECORD COUNT. READ ANOTHER IF NOT 0. 
* TEST FOR EOT, ETC ON EVERY RECORD 
ESPAC LDX RECCNT 
LEAX 1,X | 


STX RECCNT | 
LBNE RXS READ ANOTHER 


CORPORATION / 


FAD2 
FAD4 
FAD6 
FADS 
FADB 
FADE 
FAE1 


FAE1 
FAES 
FAES 
FAE? 
FAEO 
FAEB 
FAEF 
FAF1 
FAF4 
FAF6 
FAFB8 
FAFA 
FAFC 
FAFE 
FB09 


FB02 
FB04 
FBO6 
FBOS 
FBOA 
FBOC 
FB2E 
FB10 
FB12 
FB14 
FB16 
FB18 
ΕΒΙΑ 


96 
81 
26 
85 
BD 
16 


1086 
eT 


200A 
FE?74 
FDC3 
92090 


FFFF 
2F 


ER 
RE 
* 


E 
* 
* 
* 
* 
* 
ES 
πας 
* 
* 


RS 
R8 


R8 


Xo Gt Gt 


* 
* 
= 
* 
a 
* 
* 
R 


L 


LDA TAPDIR ON LAST REC OF SPACING: 


CMPA #1 

BNE EREADX ON SPACE REV, KEEP 
LDX #18 GOING BACK AN EXTRA 
JSR WAIT 19 MS. 


EADX LBRA ECOMM ELSE DONE 
AD2 RMB g 
READ-- TEST FOR ERRORS 
HERE, U POINTS TO LAST CHAR STORED (IN RAM) +1 
U IS ALVAYS EVEN HERE BECAUSE BUFF STARTS AT EVEN NO 
BACK UP, REMOVING CHARS FROM LRCC, UNTIL YOU SEE 
THE $22 RECORD TERMINATOR (REMOVE IT ALSO) 
AT THAT POINT, THE LRCC SHOULD BE 0 
HERE, NOVADD CT (LAST NOVA ADDR)+1 

X POINTS TO LAST WD SENT TO NOVA, INCR FIRST 

U POINTS TO (LAST WD STORED IN RAM)+2 
FIRST MOVE U BACKWARDS TO STRIP POSTAMBLE 
THEN SEND (FROM X TO U) TO NOVA VIA DMA 
TRIP LDA #30 LIMIT N BYTES 

STA COUNT 


DEC COUNT TEST COUNT, QUIT IF 250 

BEQ R8C 

LEAU - BACKSPACE U BY 1 

CMPU #BUFF-1 DID IT GO OVER THE BOTTOM 

BNE R8A 

LDU #BUFTR-1 YES, WRAP 
A LDA @,U GET CHAR 

EORA LRCC REMOVE FROM LRCC 

STA LRCC 

LDA g,U NOW, WAS IT 22 

CMPA 4922 

BNE R8 NO, KEEP GOING 

LEAU -1,U POINT TO LRCC (IN EVEN BYTE) 
TEST FOR ODD CHAR 
IF YES, THE LRCC WILL BE IN ODD BYTE (OF SAME WD) 
IN BOTH CASES, STRIP THE WD CONTAINIG 22, WILL 
LFAVE YOU WITH 1 MORE WD IF IT IS ODD CHAR 


TFR U,D 
BITB #1 TEST LSB 
BEQ R8B IF EVEN, SKIP 
LEAU EU IF ODD, INCR U TO NEXT WD 
LDA STATUS+1 SET ODD CHAR BIT 
ORA #52 
STA STATUS+1 
B LDA LRCC NOW TEST LRCC, SHOULD BE 
BEQ R8D 6 HERE 
C LDA STATUS LRCC ERROR 
ORA 854 SET PARITY ERR BIT 
STA STATUS 
D STU TEMPY 


READ LOOP ὅ-- DMA THE REST OF THE BUFFER INTO THE NOVA 
TEMPY POINTS TO THE WORD FOLLOWING EOR 
TRANSFER TO NOVA UNTIL WCNT RUNS OUT OR EOR REACHED 
INCR NOVA ADDR ON EACH WD SENT 
THEN RETURN FINAL WCNT, ADDR TO NOVA 
NOTE, CURRENTLY, NEITHER READ NOR WRITE CONTAINS 
A TEST FOR DMA OVERRUN TO THE NOVA aiako akka 
OOPS ΟΜΡΥ͂ 8-1 IS WCNT OUT 

BEQ RSDONE 


YES, QUIT | 
AIA CORPORATION / 


20 
80 
26 
8E 
96 
27 


B6 
2B 
96 
8A 
97 
31 
DC 
FD 
C3 
DD 
EC 
FD 
B? 
20 
51 
10BF 
96 
85 
27 
96 
8A 
97 
96 
85 
27 
96 
8A 
97 
7E 


51 
108Ε 
96 
BA 
97 
96 
81 
26 
@C 
20 
OA 
7E 


LEAX 
CMPX 
BNE 
LDX 
RSA CMPX 
BEQ 
* OK, DO A DMA 
LDA 
BMI 
LDA 
ORA 
STA 
ΒΜ LEAY 
LDD 
STD 
ADDD 
STD 
LDD 
STD 
STA 
BRA 
RSDONE LEAY 
STY 
RPTEST LDA 
BITA 
BEQ 
RPERR LDA 
ORA 
STA 
R9 LDA 
BITA 
BEQ 
LDA 
ORA 
STA 
R19 JMP 


2 X 
#BUFTR 
R3A 
#BUFF 
TEMPY 
R3DONE 
CYCLE 
ZPORTB 
R3M 
STATUS 
#549 
STATUS 


ZDCHR 
RLOOP3 
1,Y 
ZNCH 
PARITY 
#Š 40 
R9 
STATUS 
#$4 
STATUS 
PARITY 
#$20 
810 
STATUS 
#$40 
STATUS 
ECOMM 


* FILE MARK SEEN 
* SET THE STATUS BIT, 


RFMK LEAY 
STY 
LDA 
ORA 
STA 
LDA 
CMPA 
BNE 
INC 
BRA 

RFMK2 DEC 

RFMKS JMP 


TI 
ZNCH 
STATUS 
#$1 
STATUS 
TAPDIR 
#2 
RFMK2 
FSEEN 
RFMKS 
FSEEN 
RPTEST 


EXIT 


LOOK AT NEXT WD IN BUFFER 
IS THERE ONE 


WRAP AROUND IF AT TOP 
IF EOR 
MAKE SURE DMA IS READY HERE 


IF OK 
IF NOT, SET DMA-LATE BIT 


INCR WCNT 
CET NOVA ADDR 
INCREMENT IT 
GET DATA 
START CYCLE 
SEND WDCNT BACK TO NOVA 
TEST PARITY BIT 
IF OK 
IF EITHER PARITY OR LRCC, SET 
THE “PARITY” ERR BIT 
NOW TEST FOR OVERRUN 
FROM THE USRT 
IF NO 


IF YES, SET THE DATA LATE BIT 
TO NOVA 


RETURN WCNT OF @ TO NOVA 
SET STATUS BIT 
WHICH DIRECTION 
MAINTAIN THE FSEEN COUNTER 
FWD 
REV 


TERMINATES EITHER SPACE OR READ 


Al CORPORATION , | 


| 


* WRITE ROUTINE | 


FB8D 86 04 WRITE LDA #4 PREAMBLE WDCNT 
FB8F 97 20 WRIT STA COUNT 

fi FB91 86 86 LDA #6 POSTAMBLE WDCNT | 
FB93 97 27 STA PSCNT | 
FB95 B6 C009 LDA ZR240 TEST FOR UNPROTECTED 
FR98 85 Z8 BITA 498 
FBOA 26 29 BNE WUNP IF OK 
FBOC 96 ØD UNPERR LDA STATUS SET ERROR BIT ONLY 
FBOE 8A 8@ ORA 4580 
FBAG 97 00 STA STATUS 
FBA2 7E FSA4 JMP ECOMM 
FBA5 BD FE82  WUNP JSR TSTEOT TEST FOR EOT BEFORE MOVING TAPE | 
FBA8 86 ØA LDA 850A OK, START MOTION, WITH WEN | 
FBAA B? D@O1 STA ZPORTA 
FBAD 96 ØF LDA MPORTB SET DMA DIRECTION 
FBAF 84 DF ANDA #5FF-$20 @=OUT OF NOVA 
FBB1 97 OF STA MPORTB 
FBB3 B7 CO8 STA DPORTB 
FBB6 B6 0008 LDA ZDCHC SET THE DCH COMPLETE FLAG 
FBBO DE 29 LDU NOVADD GET NOVA ADDRESS INTO U 
FBBB FF C002 STU ZNBE SET UP FOR INITIAL DMA CYCLE 
FBBE 96 14 LDA LCOMM LOOK AT COMMAND CODE | 
FRCO 81 30 CMPA #COMWF 
FBC2 27 03 BEQ ντο IF WRT FILE MK, DONT DO DMA 
FBC4 B7 C09 STA ZDCHR START DMA CYCLE 
FBC? 33 41 ν10 LEAU 1.0 NEXT ADDR 
FBC9 86 22 LDA #i22 

€ FBCB 97 11 STA LRDC START THE LRCC 
FBCD 86 88 LDA #$88+ZREG1 RESET USRT 
FBCF B? D80 STA ZSYNCØ 
FBD2 86 οὗ LDA 850D SET UP SYNC CHAR FOR READ 
FBD4 B7 7802 STA ZSYNC1 AFTER WRITE | 
FBD? 86 01 LDA 41 
FBD9 97 18 STA INTRW INTERRUPT ROUTINE WILL HANDLE WI 
FBDB 97 21 STA WRITOK WRITE-OK FLAG STARTS NONZERO 

* TIME OUT THE IRG- 35 MS NORMAL, 1 SEC IF BOT 

FBDD BD  FE11 WI@2 JSR SHOW KEEP SHOWING STATUS 
FBES B6 Cag LDA ZR240 LOOK AT LPS TO TEST BOT 
FBE3 85 40 BITA #542 
FBE5 26 F6 BNE WIJO STAY HERE TILL LPS GOES DOWN 
FBE? BE 0023 LDX #35 THEN TIME OUT NORMAL GAP 
FBEA BD FE74  WI1 JSR WAIT 
FBED BD FE11 JSR SHOW SHOW STATUS W/O BOT BIT 


* SET UP POSTAMBLE 
* IT ALL GOES IN RAM BECAUSE OF LRCC 


FBFØ CC — 0022 LDD #$22 | 
FBF3 FD E869 STD POSTAM LRCC, RECORD TYPE | 
FBF6 CC — FFO4 LDD  #$FFØ4 SYNC & SINGLE BIT FOLLOWING Ἢ 
FBF9 FD E862 STD POSTAM+2 | 
FBFC CC — 2000 LDD 40 | 
FBFF FD £864 STD  POSTAM+4 | 
Ε002 FD E866 STD POSTAM+6 | 
FCO5 FD E868 STD  POSTAM+8 | 
Q Foes FD sex STD POSTAM+1@ 
* SET UP BUFFER POINTERS 
* YOU WANT TO CALCULATE THE STARTING ADDRESS SO | 
* THAT THE LAST WORD OF DATA WILL BE IN THE TOP OF | 
* 


THE BUFFER. DIVIDE WDCNT BY 256 SO THE NT IS | 
| 
Rn CORPORATION / 


d 


FCOB 
FCOD 
FC@E 
FCOF 
FC12 
FC13 
FC15 
FC16 
FC18 
FC1A 
FC1B 
FC1E 
FC1F 
FC20 
FCZ2 
FC24 
FC2"7 
FC29 
FC2B 
FC2E 
FC31 
FC33 
FC36 


FC38 
FCSA 
FCSD 
FCSF 
FC42 
FC44 
FG47 
FC4A 
FC4D 
FC4F 
FC52 
FC53 
FC56 
FC58 
FCSB 
FCSD 


FC60 
FC64 
FC67 
FC69 
FC6B 
FC6D 
FC"? 
FC73 
FC"5 
Fc" 
FC"79 
FC7B 


81 
1627 


39 
6119 


LIE * εκ 


ΝΖ 


WIS 
WI4 


* SET UP USRT- 


LDD 
COMA 
COMB 
ADDD 
TSTB 
BEQ 
INCA 
STA 
STA 
NEGB 
LDX 
ABX 
ABX 
STX 
LEAX 
CMPX 
BNE 
INC 
LDX 
LDD 
STD 
LDA 
BPL 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDD 
STD 
LDA 
STA 
CLRA 
STA 
LDA 
STA 
LDA 
STA 


THE NO OF PAGES OF 256W, AND THE REMAINDER (NEG.) 
IS WHERE YOU START THE FIRST DATA WORD. 

NOTE- ONE MORE WORD IS READ THAN IS WRITTEN- 

THE FF AND 22 IS WRITTEN AS PART OF THE PREAMBLE 
BUT IS CHECKED ALONG WITH THE DATA. 


NOVWC 

NEGATE THE WDCNT 
#1 HAVE POSITIVE WDCNT 

HOW MANY WRITE PAGES 
WI2 IF REMAINDER IS .NE. £, 

THERE IS 1 MORE PAGE IN co 
NPACW N PAGES TO WRITE 
NPAGR 

LOW ORDER ADDR OF FIRST o. 
85k920 NEED TO GET E922*«(LOW ADDR)*2 
TEMPY | 
ee X GET READ ADDR- 1 WD EARLIER 
#BUFF-2 DID IT WRAP BELOW BOTTOM? 
WIS 
NPAGR IF YES, ONE MORE PAGE TO READ 
#BUFF+S1FE FIX UP BUFF ADDR 
#$FF22 SET UP THE FIRST WD IN THE BUFF | 
g,X READ ADDR STAYS IN X | 
ZPORTB NOW, IS FIRST DMA CYCLE DONE 
Ν14 IT BETTER BE 
ENABLE BOTH XMTR AND RCVR | 
#ZREG1 | 
ZSYNCO POINT TO CTRL2 REGISTER | 
4981 SET WD LENGTH, EIE INTRR 
ZSYNC1 
459 ENABLE XMT & RCV, POINT TO DAT! 
ZSYNC? 
#0 LOAD @@ FOR DATA OUT 
ZSYNC1 
#514 FINALLY, ENABLE WDE TO DRIVE 
ZPORTA 
T2ACR SETUP TIMER#2 
#255 ABOUT 43.5MS TIMEOUT 
T2HOC 
8$ AQ ENABLE TIMER#2 TO IRQ 
ZINTE 


* WRITE LOOP 1-- WRITE PREAMBLE | 
* NO READ DATA HERE, IT ISNT READY YET | 


WLOOP1 


LDY 
LDA 
BITA 
BEQ 
LDD 
STA 
STB 
DEC 
BNE 
LDA 
CMPA 
LBEQ 


#PREAM POINTER 

ZSYNCO GET USRT STATUS 

#$2 IS TDRA READY 

WLOOP1 

#Yt+ YES, GET 2 BYTES 

ZSYNC1 

ZSYNC1 WRITE THEM SEPARATELY 

COUNT COUNT 4 PAIRS 

WLOOP1 | 
LCOMM WHAT IS COMMAND | 
#COMWF 


WRITFN BRANCH HERE IF ING FILE MK | 
/ 
A A CORPORATION / 


4 


FC"F 
FC81 
FC84 
FC86 
FC88 
FC8A 
FCBD 


FC90 
FC92 
FC95 
FC98 
FC9A 
FC9C 
FC9E 
FCA 


FCA2 
FCA5 
FCA8 
FCAB 
FCAD 
FCBC 
FCBS 
FCB5 
FCB? 
FCB9 
FCBB 
FCBD 
FCC1 
FCCS 
FCC5 
FCC? 


FCCB 
FCCE 
FCD2 
FCD2 
FCD4 
FCD6 
FCD8 
FCDB 
FCDE 
FCE1 
FCES 
FCES 
FCE8 
FCEA 
FCED 
FCEF 


FCF1 


16 
B6 
85 
gu, 
86 
B7 
199E 


DESO 
DEOL 


C296 
C022 
C29 


2802 
2802 


ANDCC #$BF ENABLE HARD TAPE ERRS TO FIRQ 


WL1A LDA ZSYNCO WAIT FOR READY AGAIN 


BITA #$2 

BEQ WL1A 

LDA 4522 WRITE FIRST CHAR OF 22 
STA ZSYNC1 (JUST WRITE 1 CHAR, IS OK) 
LDY TEMPY SET UP FOR MAIN LOOP 


WRITE LOOP 2- MAIN WRITE LOOP 
GETS DATA VIA DMA, WRITES OUT 
ALSO READS AND CHECKS DATA IF ANY (YET) 
Y: POINTER TO STORE XMT DATA INTO RAM 
X: POINTER TO RFAD RCV DATA FROM RAM 
U: NOVA ADDR, INIT TO SECOND WORD 

FIRST WD IS ALREADY IN THE REGISTER 
LRCC: CUMULATIVE LRCC 
WLP2S LDA #255 43.5MS TIMEOUT 

STA T2HOC 

WLOOPZ LDA ZSYNC?O (5) GET USRT STATUS 


3€ 38 $ 3€ 3t + HH 


ΒΙΤΑ 452 2 IS XMT READY 

BNE WL2T 3 YES 

BITA 851 IF NOT XMT, IS RCVR READY 
BNE WL2R YES 


BRA WLOOP2 
* XMIT SIDE- SEND OUT 2 BYTES 


WL2T LDD ZNDH 6 GET THE WORD 


STU ZNBH 6 SET UP NEW NOVA ADDR 
STA ZDCHR 5 STRT NEW DMA CYCLE 
LEAU 1,U 5 INCREMENT IT 
STA ZSYNC1 5 SEND WORD TO USRT 
STB ZSYNC1 5 
STD ipd 11 PUT IN RAM 
EORA LRCC 4 PUT BOTH BYTES INTO LRCC 
STA LRCC 4 
EORB LRCC 4 
STB LRCC 4 
TESTW CMPY #BUFTOP 5 DID RAM ADDR RUN OVER 
BNE WLOOPR š NO, QUIT 
DEC NPAGW COUNT PAGES 
BEQ WLOOPE NO MORE- END OF DATA 
LDY #BUFF RAM ADDR RAN OVER, RESET IT TO 
* RECEIVE SIDE- READ 2 BYTES WHEN READY, CHECK 
WLOOPR LDA 25ΥΝΟΘ 9 GET STATUS 
BITA 851 2 TEST RCV FIRST 
BNE WL2R 3 YES 
BITA #$2 IF NO, IS XMTR READY 
BNE WL2T 


BRA WLOOPR 


WL2R LDA ZSYNC1 5 GET 2 CHARS FRO USRT 


LDB ZSYNC1 5 

CMPD |, X++ 15 TEST AGAINST DATA 

BEQ WLZRR š IF OK 

CLR WRITOK IF BAD, CLEAR FLAG 
WL2RR CMPX 8 BUFTOP 4 IS ADDR OVER THE TOP 

BNE WLP2S 3 NO, OK 

LDX #BUFF YES, RESET IT 

DEC NPAGR COUNT READ PAGES 


BRA WLP2S 
* SET UP FOR LOOP 3 


WIL3 LDA #255 TIMEOUT 43.5MS 
ATA CORPORATION / 


FDO1 
FDO4 
FD@6 
FD@8 
FDOA 


FDOC 
FDOE 
FD12 
FD12 
FD15 
FD18 
FD1A 


FD1C 
FD1E 
FD21 
FD23 
FD26 
FD2A 


FD2C 
FD2F 
FD32 
FDS5 
FD37 
FD39 
FD3C 
FDSE 
FD41 
ΕΡ45 


FD45 
FD47 
FD49 
FD4C 
FD4F 
FD5@ 
FD53 
FD55 
FD57 
FD59 
FDSB 
FDSD 
FDSF 
FD62 


138E 


STA T2H0C 
BRA WLOOPS 


WLOOPE LDA LRCC PUT LRCC IN RAM 
STA POSTAM 
LDY #POSTAM START POINTER 


* WRITE LOOP 3- WRITE POSTAMBLE 
* READ AND CHECK DATA FROM READ SIDE ALSO 

* (IT MAY NOT HAVE STARTED YET) 

* IF READ DOESNT START WITHIN 43.5MS, OR IF THERE IS 

* 43.5 MS GAP IN READ DATA, STOP, CALL IT PARITY ERROR 


WLOOP3 LDA ZSYNCO IS XMTR READY 
BITA #$1 TEST RCVR FIRST 
BNE WL3R 
BITA #82 THEN TEST XMTR 


BEQ WLOOPS 
* XMIT SIDE- SEND OUT A WORD 
* THIS WONT BE EXECUTED AFTER LAST WORD SENT 


WLST LDA PSCNT IS POISTAMBLE DONE 
BEQ WLSE YES, SHUT DOWN XMTR HERE 
LDD n eed NO, GET WD, SEND OUT 


STA ZSYNC1 
STB ZSYNCL 
DEC PSCNT 
BRA WLOOPS 
* COUNT RAN OUT, TURN OFF WDE, DISABLE XMTR 
* NOTE- HERE, THERE ARE 2 BYTES OF 2 STILL TO 
* BE SENT OUT, TO HELL WITHEM 
WLSE LDA #SQA THIS WILL STOP THE STROBES 
STA ZPORTA 


LDA #$C2 DISABLE THE XMTR 

STA ZSYNCE 

LDY #POSTAM RESET Y, IN CASE MORE SENT 

BRA WLOOPS STAY IN LOOP TILL READ DONE 
* READ SIDE 
WL3SR LDA ZS YNC1 GET 2 BYTES, TEST 

LDB ZSYNC1 

CMPD X++ 

BEQ WL3RR THIS IS SAME AS IN WLOOP2 


CLR WRITOK 
WLSRR CMPX #BUFTOP 


BNE WILS AFTER READ, RESTART TIMEOUT 
LDX #BUFF 
DEC NPAGR COUNT READ PAGES 
BNE WILS 

* READ ROUTINE HAS SEEN ALL THE DATA- STOP HERE 

WBENT ORCC 8940 DISABLE FIRQ | 
LDA 4520 DISABLE TIMER#2 FROM IRQ | 


STA ZINTE 
STA TZLOL 


CLRA FORCE A SHORT TIMEOUT 
STA T2HOC ON TIMER#2 SO FLAG CAN BE CLRD 
LDA WRITOK WAS R.A.W. OK? 
BNE WL3K 

WLSBAD LDA STATUS NO, CALL IT A PARITY ERROR 
ORA 894 
STA STATUS 

WL3K LDA #58 STOP MOTION, KEEP WEN 


STA ZPORTA 


STU NOVADD SEND FINAL A NOVA | 
| 
Η n CORPORATION / 


FD8E 
FD91 
FD93 
FD95 


FD98 
FDOB 
FD9D 
FDA1 
FDAS 
FDAS 


FDA8 
FDAB 
FDAD 
FDB1 
FDB4 
FDB6 
FDB9 
FDBC 


oF ØB 
OF ος 
96 14 
81 20 
26 10 
96 ØD 
85 04 
26 ZA 
D6 OE 
C5 20 
26 94 
8A 21 
97 oD 
B6 DOL8 
"7E FBA4 
go 
20 
00 
@@ 
20 
ca 
OD 
FF 
55 
FF 
CC 9000 
DD ØB 
86 95 
7E FB8F 
CC FF55 
ED 84 
128E E863 
86 25 
97 e 
7E FD21 
B6 C289 
85 28 
102? FDEB 
BD FE82 
86 gA 
B7 2661 
B6 COBO 
85 50 


CLR NOVWC FINAL WDCNT IS @ 
CLR NOVWC+1 


LDA LCOMM TEST COMMAND 

CMPA #COMWF IS IT WRITE FILE MARK? | 
BNE WEXIT BRANCH AROUND IF NOT | 
LDA STATUS IF WFM, SET EOF BIT 

BITA 454 UNLESS THERE WAS AN ERROR 


BNE WEXIT THERE WAS! 
LDB STATUS +1 


BITB #520 
BNE WEXIT THERE WAS! 
ORA #1 


STA STATUS 

WEXIT LDA TZLOL CLEAR TIMER#2 FLAG 
JMP ECOMM DONE 

* THIS IS YOUR BASIC PREAMBLE 


PREAM FCB g 
FCB g 
FCB g 
FCB 0 
FCB Ø 
FCB 506 
FCB $@D 
FCB $FF 
FNKE FCB $55 EXTRA FOR WRT FILE MARK 
FCB $FF 


* WRITE FILE MARK ROUTINE 


* THIS ROUTINE USES CODE IN THE WRITE ROUTINE 
* DIFFERENCES ARE: 
* WRITE 2 MORE BYTES IN PREAMBLE (IS ENTIRE FMK) 
* NO DMA FROM NOVA 
* USE WDCNT OF Ø- READS + CHECKS 1 WD 
* FIRST WD IS FF55 NOT FF22 
* BRANCH OUT AFTER WRITING PREAMBLE, GO TO POSTAMBLE 
* START AT POSTAMBLE+3, WRITE 5 WDS NOT 6 
WRITFM LDD #0 
STD NOVWC WORD COUNT 
LDA #5 
JMP WRIT SET PREAMBLE WDCNT AND GO 
* PICK UP HERE AFTER PREAMBLE WRITTEN 
WRITFN LDD #$FF55 CHANGE WD IN RD BUFFER | 
STD @,X 
LDY #POSTAM+3 
LDA #5 WDCNT FOR WRITING 


STA PSCNT | 
JMP WLOOPS 


* ERASE ROUTINE 


ERASE LDA ZR240 TEST FOR UNPROTECTED | 


BITA 4$8 

LBEQ UNPERR NO, QIUT 

JSR TSTEOT TEST FOR EOT 

LDA 850A START MOTION WITH WEN 


STA Z PORTA 
EBOT LDA ZR249 DONT START TIMING UNTIL 


BITA $550 OFF BOT AE | 
9 CORPORATION J 


FDBE 26 
FDCO 8E 
FDC3 BD 


Q ocs τε 


EBOT 
#350 
WAIT 
WLSK 


TIME OUT 550 MS 
EXIT SAME AS WRITE ROUTINE 
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FDC9 
FDCB 
FDCE 
FDD2 
FDDS 
FDD5 


FDD8 
FDDA 
FDDD 
FDDF 
FDE2 
FDEZ 
FDES 
FDES 
FDEB 


FDED 
FDEF 
FDF2 
FDF4 
FDF? 
FDF9 
FDFC 
FDFE 
FE21 
FE2S 
FEG 
FE28 
FEOB 


FEOC 
FEOF 


FE11 
FE14 
FE16 


86 
B"? 
86 
B? 
86 
B7 


FC 
DD 


B6 
84 
81 


C802 
69 


005 
38 
10 


* SUBROUTINES 


* SELUO-- SUBROUTINE TO INITIALIZE THE ENTIRE SYSTEM 
* SELECTS UNIT Ø, TRACK ð, INIT THE USRT AND 6522 


SELUS LDA 
STA 
LDA 
STA 
LDA 
STA 


3& 3t 3€ 3B 3t 3t Xt 


LDA 
STA 
LDA 
STA 
CLRA 
STA 
STA 
STA 
STA 


#S BF ALL OUTPUTS EXC. BIT 6 
n DIRECTION REG FOR PORT A 

#Š 0 

ZDIRB PORT B — ALL INPUTS 

#551 6522 PERIPH CONTROL REG: 
ZCTRL CBi= BUSY (FROM ECL) 


INT ON POS EDGE 
CB2= CLEAR (FROM ECL) 

INT ON POS EDGE 
6412797 

NO INT. FLAG ON NEG EDGE 
CA2-SYNCH MATCH 

NO INT. FLAG ON POS EDCE 


#$98 

ZINTE 

#580 SET UP PORT A 

ZPORTA SELECT GATE ON - OTHERS OFF 
MPORTB 

DPORTB SELECT TRACK 1, DRV 6, DATA CH FI 
ZPORTA GATE THE UNIT SELECT ON 

BSYSET INITIALIZE BUSY το @ 


* INITIALIZE THE USRT REGISTERS 
* THERE ARE 4 OUTPUT REGISTERS ON CODE 1- TO SELECT WHICH 


* ONE IS USED, 


ZREG1 EQU 
ZREG2 EQU 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


SET THE “AC” BITS WHEN WRITING CTRL REG 2 

$11 NORMAL CONTENTS OF CTRL REG 1 
22090119099 NORMAL CONTENTS OF CTRL REG 2 
#$80+ZREG1 POINT TO SYNC CHAR REG 


ZSYNCO ALSO DISABLE INTRR, RESET T & RO 

s$70 SET SYNC CHAR 

ZSYNC1 

#$40+ZREG1 POINT TO CTRL3 REGISTER 

ZSYNCO | 

436010 SET FOR 1 SYNC, INTERNAL SYNC MOI 

ZSYNC1 | 

#ŠQ+ZREG POINT TO CTRL 2 REG 

ZSYNC2 

HZREG2 SET FOR NO EIE, NO TX SYNC, 8BITS 

ZSYNCi EVEN PAR, 2BYTE XFR, DTR USED 
DONE 


| 


SHOW-- SUBROUTINE TO COMPUTE THE DIA STATUS WORD 


SO IT WILL BE VALID ANY TIME NOVA LOOKS AT IT 


πας 
* CALL THIS SUBROUTINE REPEATEDLY TO MAINTAIN THE STATUS 
* 

* 


ENTER AT SHOWB WHEN IDLE- READS ADDR FROM DOB REGISTER 


SHOWB LDD 
STD 

* 

SHOW LDA 
ANDA 
CMPA 


ZNBH COPY DOB CONTENTS TO MEMORY 
NOVADD 

ZNAL GET COMMAND REG 

5538 MASK COMMAND BITS 


4510 CHECK FOR ILLEGAL | 
Al CORPORATION / 


FE18 
FE1A 
FE1D 
FE20 
FE23 
FE26 
FE28 
FE2A 


FE2D 
FE2F 
FES1 
FES4 
FES6 
FES8 
FEZA 
FESC 
FESE 
FE42 
FE42 
FE44 
FE46 
FE49 
FE4B 
FE4D 
FE4F 
FE52 
FE54 
FE56 
FE58 
FES5A 
FESC 
FESE 
FE62 
FE62 
FE64 
FE66 


FE66 
FE68 
ΕΕ ΘΑ 
FEGC 
FEGE 
FE?@ 
FE73 


FE"4 
FE"76 
ΕΕ 
FE?78 


E z 


FE?C 
ΕΕ 
ΕΕΒΙ 


26 
FC 
FD 
FC 
FD 
20 
DC 
FD 


D6 
C4 
B6 
85 
27 
CA 
85 
27 
96 
85 
26 
CA 
B6 
85 
26 
CA 
FT? 
C4 
D7 
D6 
C4 
85 
27 
96 
81 
26 
CA 


1Ε 
84 
9A 
27 
CA 
F? 
39 


86 
4A 
12 
26 
50 
80 
26 
69 


BNE 
LDD 
STD 
LDD 
STD 
BRA 
SHØ LDD 
STD 


SH NOT - DONT ECHO 

ZNBH YES ECHO B AND C REGISTER 

ZN BH 

ZNCH ECHO C REGISTER 

ZNCH 

SHA | 

NOVADD COPY MEM ADDRESS TO DIB REGISTER 
ZNBH 


* BUILD THE STATUS WORD- RIGHT HALF FIRST 

* GET NON LATCHED BITS FROM THE INPUTS FROM DRIVE 
* GET LATCHED BITS FROM “STATUS LATCH 

* THIS ROUTINE SETS UP RDY, BOT, WRT LOCK, AND REV. 


SHA LDB 
ANDB 
LDA 
BITA 
BEQ 
ORB 
BITA 
BEQ 
LDA 
BITA 
BNE 
ORB 
SH1 LDA 
BITA 
BNE 
ORB 
SHe STB 
ANDB 
STB 
LDB 
AN DB 
SH3 ΒΙΤΑ 
BEQ 
LDA 
CMPA 
BNE 
ORB 
SH5 RMB 
* NOW FIND OUT 
TFR 
ANDA 
ORA 
BEQ 
ORB 
SH4 STB 


RTS 
* 


STATUS+1 GET LATCHED BITS (LOW HALF) 


#LACHL ZAP OUT OTHERS 
2R240 READ THE INPUTS 

#380 TEST RDY 

SH2 

#$1 IF ON, ADD BIT @ TO REG. B 

#549 IF READY TEST BOT BIT 

SH1 

MPORTB MUST ALSO BE TRACK @ 

#3 TO GET BOT INDICATION 

SH1 IF NOT Τ.0 

#$80 ADD BOT TO NOVA REG 

25240 RELOAD A 

458 IF READY, ALSO TEST WRITE LOCK 
siz IF BIT IS ON, IS UNPROTECTED 
#34 

ZNAL OK, STORE IN LOW HALF OF DIA 8 
#FRRBL TEST THE BITS THAT CAUSE ERR FLA 
ERRBIT SAVE TEMPORARILY | 
STATUS NOW BUILD UPPER BYTE OF STATUS 
#LACHH EXTRACT LATCHED BITS 

452 TEST FWD, REV AND BUSY TO GET F 
SH5 IF NOT BUSY, IS NOT REWINDING 
LCOMM WHAT WAS TEE LAST COMMAND 

458 IF REW, THEN SET REW STATUS BIT 
SE5 

#$20 IS REWINDING, SET STATUS BIT 

0 

WHETHER ERROR BIT (MSB) SHOULD BE ON 

B,A 

#ERRBH THESE BITS CAUSE ERR IN UPPER HALF 
ERRBIT THESE CAUSE ERR IN LOWER HALF 
SH4 

4580 IF ANY ARE ON, SET IT 

ZNAH OK, SEND IT TO NOVA 


* WAIT-- SUBROUTINE TO WAIT N MSEC. ENTER WITH N IN X. 


WAIT LDA 

WAITL DECA 
NOP 
BNE 
LEAX 
CMPX 
BNE 
RTS 


#215 LOOP TO WAIT 1 MS 
[2] LOOP TO WAIT 5 USEC 
[2] 
WAITL [3] 
-1,X 
80 DECR X AND TEST ΙΡ Q 
WAIT 


| 5 | a CORPORATION / 


* SUBROUTINE TO TEST FOR EOT (BEFORE GOING FORWARD) | 
* REWINDS AND GOES TO NEXT TRACK IF NECESSARY 
* GOES DIRECATLY TO ECOMM IF LAST TRACK | 
e. * IF REV DIRECTION, GOES BACK A TRACK, FAST FWDS | 
κ TO END OF TRACK 
FE82 96 10 TSTEOT LDA TAPDIR WHICH DIREC 
FE84 81 @2 CMPA #82 FWD? 
FE86 26 2F BNE REVEOT NO, SKIP 
FE88 B6 C009 LDA ZR240 TEST EWS 
FE8B 85 20 BITA όρο | 
FEBD 27 27 BEQ RNOTE IF OFF, OK | 
FEBF 96 ØF LDA MPORTB IF ON, TEST TRACK# 
FEO1 84 3 ANDA #83 
FE93 81 23 CMPA — 453 TEST FOR TRACK 4 
FE95 26 ØB BNE RNOT4 IF NOT 4, REWIND & RETRY 
* TRACK 4 NOW- RETURN EOT STATUS TO NOVA 
FE97 86 202 LDA m 
FE99 ΘΑ ØD BADEOT ORA STATUS 
FEOB 97 ØD STA STATUS | 
FEOD 35 06 PULS D DUMP THE STACK BEFORE LEAVING 
FEOF 7E — F8A4 JMP ECOMM 
* NOT TRACK 4- REWIND 
FEA2 8D 43 RNOT4 BSR ESTOP STOP THE TAPE 
FEA4 D6 OF LDB MPORTB SET UP NEW TRACK 4 
FEA6 5C INCB NEXT TRACK 
FRA? D? OF STB MPORTB 
FEAO F? C228 STB DPORTB 
FEAC BD F8FQ JSR REWI START MOTION 
£; FEAF B6 C029 R5 LDA ZR240 WAIT TILL BUSY GOES DOWN 
FEB2 85 02 BITA #$2 
FEB4 26 FQ BNE R5 
FEB6 39 RNOTE RTS | 
FEB? B6 CQZ9 REVEOT LDA ZR240 TEST PHYSICAL BOT 
FEBA 85 50 BITA — 4559 LOOK FOR LPS OR FLG 
FEBC 27 F8 BEQ RNOTE IF NOT, RETURN OK 
FEBE 96 ØF LDA MPORTB IS BOT, TEST TRACK# 
FEC 85 Q3 BITA #$3 
FEC2 26 QA BNE RNOTZ IF NOT ZERO 
FEC4 86 80 LDA 4580 IF ZERO, RETURN ERROR 
FEC6 9A QE ORA STATUS+1 BIT 7 IN LOWER BYTE IS BOT 
FEC8 97 ØE STA STATUS+1 
FECA 86 92 LDA #590 SET ERR FLAG AND ILLEG 
FECC 20 CB BRA ΒΑΤΣΟΤ 
FECE 8D 17 RNOTZ BSR ES TOP STOP MOTION 
FEDS 96 ØF LDA MPORTB GET TRACK # 
FED2 4A DECA REDUCE IT BY 1 | 
FEDS 97 OF STA MPORTB 
FEDS B7 C28 STA DPORTB SET TRK# IN DRIVE | 
FED8 86 496 LDA #526 FAST & FORWARD BITS 
FEDA B7  D201 STA ZPORTA START MOTION 
FEDD B6 C009  wWEWS LDA 71240 WAIT FOR EWS (END-OF-TRACK) 
FEES 85 20 BITA 432€ 
FEE2 27 F9 BEQ WEWS 
* FEE4 8D 21 BSR ESTOP STOP MOTION 


FEE6 39 RTS 
; * ROUTINE STOPS TAPE MOTION, WAITS UNTIL DRIVE 
* IS READY, CLEARS WRITE ENABLE, WAITS 2 MORE MS 


* AND RETURNS. | 
Al A CORPORATION ] 
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FEE" B6 D281 ESTOP LDA ZPORTA 


FEEA 84 FC ANDA 8SFC ZERO THE MOTION BITS 
FEEC B7 D221 STA ZPORTA 

m FEEF B6 C@Q9 — ESTOP2 LDA ZR249 WAIT FOR BUSY BIT IN 
FEF2 85 22 BITA #502 DRIVE TO GO LOW. 
FEF4 26 F9 BNE ESTOP2 
FEF6 7F D001 CLR ZPORTA TURN OFF WEN (IT MAY OR 
FEFO 8E 92902 LDX 82 MAY NOT HAVE BEEN ON) 
FEFC BD FE"74 JSR WAIT 2MS DELAY BEFORE TRACK 
FEFF 39 RTS CHANGE ALLOWED 


* INTERRUPT ROUTINE (FOR FIRQ INTERRUPT) 
* HAS DIFFERENT MODES FOR READ & WRITE 


FFOO 34 06 FIRQ PSHS D STACK A,B 
FF22 96 18 LDA INTRW WHICH MODE WE IN 
FFO4 1027 FB85 LBEQ FIRQR IF READ 
* THE WRITE INTERRUPT ROUTINE GOES HERE 

FF28 B6 D822 LDA ZSYNCO GET ERROR STATUS | 
FFØB 84 CO ANDA #$C@ IF DAD OR CTS WENT DOWN - | 
FFOD 27 17 BEQ PERR ITS Α BAD TAPE, ELSE PARITY 
FFZF 96 ØE LDA STATUS41 BAD TAPE - SET STATUS BIT 
FF11 8A 20 ORA #520 
FF13 97 ØE STA STATUS+1 
FF15 86 203 LDA 4903 RESET THE USRT | 
FF17 B7 D800 STA ZSYNCØ 
FF1A 86 31 LDA #531 DISABLE EIE 
FFi1C B7 20802 STA ZSYNC1 

e ΕΕΙΕ 32 65 LEAS 55 CLEAN STACK | 
FF21 1C EF ANDCC #$EF ENABLE IRQ 
FF23 16  FE1F LBRA WBENT GO ABORT WRITE | 
FF26 96 ØD PERR LDA STATUS COULD BE RCV OVFL, XMT UNDRFL 
FF28 8A 04 ORA 8S4 OR PARITY 
FF2A 97 ØD STA STATUS CALL IT PARITY ERROR. 
FF2C B6 D882 LDA ZSYNC1 
FF2F 4F CLRA NO POINT ALLOWING FURTHER | 
FF30 B7 D82e STA ZSYNCO FIRQ’S ON THIS WRITE, SO | 
FF33 86 31 FIRQX LDA #531 DISABLE EIF 
FF35 B7 D822 STA ZSYNC1 
FF38 35 06 PULS D 
FF3A 3B RTI 


TOTAL ERRORS - 


TEST PROGRAMS 


THESE ARE DESIGNED FOR USE DURING THE CHECKOUT PHASE 
IN ADDITION TO THESE PROGRAMS, THE “READ’, “REW’, 


TEST PROGRAMS IF 'SELUO' HAS BEEN CALLED AND THE 
STACK HAS BEEN INITIALIZED TO SEBFF. 


* 
* 
* 
* AND OTHER COMMAND ROUTINES MAY BE ENTERED AS 
ES 
* 
* SET UP NOVCOM, NOVADD, NOVWC BEFORE ENTERING. 


* PROGRAM TO INITIALIZE EVERYTHING, USING SELU 
* THIS SHOULD BE CALLED BEFORE ANY OF THE OTHER 


TEST PROGS 


- Ø TOTAL WARNINGS = Φ 
ΗΒ 


FFZB 86 ΕΒ FIRST LDA #5E8 SET UP DP REGISTER 
FF3D 1F 8B TFR A,DP 
FF3F BD | FDC9 JSR SELUG 
FF42 7E FS8A4 JMP ECOMM 
* PROGRAM TO READ A WORD FROM NOVA VIA DMA 
* XX: ADDRESS IN NOVA [E800] 
* YY: CONTENTS WILL BE RETURNED HERE [E822] 
FF45 86 20 READWD LDA m SET DIRECTION- NOVA OUT 
FF47 B7 C@@Q8 STA DPORTB 
FF4A DC 20 LDD XX SET UP MEM ADDR 
FF4C FD C022 STD ZNBH 
FFAF 87 C229 STA ZDCHR ASK FOR CYCLE 
FF52 B6  D900 RWAIT LDA ZPORTB WAIT FOR DONE 
FF55 2A PB BPL RWAIT BIT 7 MUST CO HIGH 
FF57 FC C06 LDD ZNDH CET RESULT 
FF5A DD 22 STD YY 
© FF5C 7E  FF5C HERE JMP HERE DONE 
* PROGRAM TO WRITE A WORD INTO NOVA MEMORY 
* XX: ADDRESS IN NOVA 
* YY: THE WORD TO WRITE 
ΕΒΕ 86 20 WRITWD LDA #$20 SET DIRECTION- INTO NOVA 
FF61 B7 C028 STA DPORTB 
FF64 DC 20 LDD XX SET UP ADDRESS 
FF66 FD C222 STD ZNBH 
FF69 DC 22 LDD YY CONTENTS 
FF6R FD C06 STD ZNDH 
FF6E B7 C009 STA ZDCHR ASK FOR CYCLE 
FF71 B6 DOGO WWAIT LDA ZPORTB 
FF74 2A FB BPL WWAIT 
FF76 7E FFS5C JMP HERE 
* INTERRUPT ROUTINES 
FF79 7E ΓΕΘ HSWI JMP HSWI Swi 
FF7C 6E OF F7FCDEBUG JMP (SP? FC] NMI- TO DEBUGGER 
FFF6 ORG 5FFF6 
FFF6 FFO FDB FIRQ FIRQ 
FFF8 FA52 FDB HIRQ IRQ 
FFFA FF79 FDB HSWI SWI 
FFFC FF7C FDB DEBUG NMI 
n FFFE F800 FDB INIT INITIAL START 
END 
NUMBER OF SOURCE LINES = 1301 
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΄ 


MTDEB.MS 


E832 


E832 
E831 
E832 
E834 


11/12/81 


CLC 


SEC 


CLI 


SEI 


INX 


DEX 


INS 


TSX 


TXS 


DES 


CBA 


ASLD 


11:55:22 


OPT 

MACR 
ANDCC 
ENDM 
MACR 
ORCC 
ENDM 
MACR 
ANDCC 
ENDM 
MACR 
ORCC 
ENDM 
MACR 
LEAX 
ENDM 
MACR 
LEAX 
ENDM 
MACR 
LEAS 
ENDM 
MACR 
TFR 

ENDM 
MACR 
TFR 

ENDM 
MACR 
LEAS 
ENDM 
MACR 
PSHS B 
CMPA 
ENDM 
MACR 
ASLB 
ROLA 
ENDM 


MC,MEX,G 
#SFE 


#01 


#Ş EF 


4510 


NAM DEBEO 


12 21, 19 


LILLLPLLLLLLLED LLLLLLLLIILLILiILILLLIP ILLI ἃς k ας ok k ἈΚ κ sk ok OK aC 


* 
* 
E 
* 


COMPUTER IMAGE RPU DEBUGGER 
6809 DEBUGGER 


* 
x 
* 
* 


DILIILPLLPLDLILDLLLIILILLPLLLLILPILLLILPILLLILLIPDLPLIIILDILI 


09001 CHAR 
2001 TMR 
99002 ARA 
2092 ARB 


ORG $ F830 


DEBUGGER PAGE ZERO REGISTERS 


RMB 
RMB 
RMB 
RMB 


NNER 


SERIAL INPUT CHAR. 
TIMER 


16 ITH PSEUDO RE 
16 | eS 


ATA CORPORATION 6829 ASSEMBLER 1; 


E836 0908 CHRBUF 
E83E 00901  BRKSAV 
E83F 0902 STKPTR 
€ F841 0002  BRKADR 
E843 00902 ‘TMP 
E845 0002  TMP1 
E847 0001  TMPF 
E848 90091  TMPC 
E849 6002 PCVAL 
E84B 90001 NUMDIG 
E84C 2001  LZFLG 
E84D 2802 BEGADR 
E84F 0002 ENDADR 
E851 0001 CHR2 
E852 0061 UNITN 
E853 0001 CKSM 
F854 09001 BYTCT 
E855 0002 FINTA 
E857 0602 INTA 


to σσ NNR PNP rN O N N D O 


PTR TO TEXT START 

TEMP SAVE FOR BRKPOINT ] 
STACK POINTER SAVE AREJ 
ADDR. OF BREAKPOINT. 


TEMP FOR MEM TEST 
RPU TEMP 


| 
NUMBER OF DIGITS TO dii 
LEADING ZERO FLAG | 
MEMORY TEST BEG ADR 
MEMORY TEST END ADR 
( 
( 


SERIAL INPUT CHAR FOR 
RAM LOAD UNIT (0-TERM- 
RAM LOAD CHECKSUM 

RAM LOAD BYTECOUNT 
FAST INTERRUPT VECTOR 
IRQ INTERRUPT VECTOR 


A | Γῇ CORPORATION / 


ΕΘΘΟ 


86 
B7 
86 
B7? 
ØF 
39 


6E 
6E 


80900 ACIADR 
8881 ACIASR 
8002 ACIACD 
8005 ACIACR 


p 

* 

x 

BS 
60578 DEL 

m 

* 

ES 

STKINI 


* 


69 RESTRT 


ES 


* IRQ & FIRQ INTERRUPT HANDLING. | 
* SET INTA AND/OR FINTA TO POINT TO YOUR INTERRUPT HANDLERS 


* 


OF ES5"VIRGQ1A 
OF ES55FIRQA 


EQU $800€ 

EQU ACIADR+1 
EQU ACIADR*2 
EQU ACIADR+3 


CHARACTER CONSTANTS 


EQU $98 
EQU $7F 


INITIAL STACK POINTER LOCATION 


EQU $ECOS 


ORG $F000 
SETDP $E8 


INITIALIZATION ROUTINES 


LDA 4200091091 
STA ACIACD 


LDA 851C 
STA ACIACR 
CLR CHAR 
RTS 


JMP [INTA] 
JMP [FINTA] 


;EXTERNAL DECODE LOGIC POD 


BACKSPACE | 
DELETE | 
| 


ENABLE ACIA RECV INTERRUPTS 


| 
SET ACIA 4800 BAUD - | 
& 1 STOP BIT (NO PARITY) 
CLEAR SERIAL CHAR 


F015 
F217 
FOIA 
F21C 
FOF 


F221 
F223 


F324 
F327 


e FO29 


8000 
51 


* 
* 
κκ 
E 
* 
* 
xe 
* 


ACIA2 DEFINITIONS / INITIALIZATION / INTERRUPT HANDLER 


ACIA2 IS AN ALTERNATE SERIAL PORT FOR LOADING PROGRAMS 
OR DATA INTO RAM 


ACIAZ REGISTER DEFINITIONS 


INITIALIZATION ROUTINE FOR ACIA2 


ACIA2 INTERRUPT HANDLER | 


ACI2DR EQU 

ACI2SR  EQU 

ACI2CD  EQU 

ACIZCR  EQU 

* 

* 

* 

UN2INI LDA 
STA 
LDA 
STA 
CLR 
CLI 
ANDCC 
RTS 

* 

* 

ES 

ACI?IN LDA 
STA 
RTI 


$8099 

ACI2DR*1 
ACI2DR*2 
ACT2DR+3 


4290001901 ENABLE RECV INTERRUPTS (ON CHAI 


ACI2cD 
#$1C 
ACI2CR 
CHR2 
CLEAR 
#SEF 


ACI2DR 
CHR2 


SET ACIA2 TO 4800 BAUD 


CLEAR ACIA2°S CHAR BUFFER 
INTERRUPT 


INPUT THE CHAR 
PUT IT IN ACIA2'S CHAR BUR] 


ΕΘΖΑ 
F02C 
F22E 
F239 
F032 


F333 
F936 
F38 
FOSA 
F23D 
FOSF 
F042 
F0438 


F045 
F047 
FO4A 
FO4C 
FO4E 
FQ51 
ΕΘ55 
ΤΘ55 
F257 


Ε099 
FOSB 


F25C 
FOSF 
F261 
F263 
F265 
F267 
F69 
F268 
FO6D 
FGF 
F78 
F073 
F275 
Fe"? 


FC 
(2j 


>K 3; ak Kk Sk ae ae 3k ake Sk aie a e ae 3k aK afc akc Six 3k OK oe SR ie ae a ak 3k Bie Ae ak ake aie aK 3k K Ae 3k 3k aie 


x 
* 


ας AE OEE ας Xe a BEE DIE BC aE akea Ἐκ ας DEC ONC DK 3k NED HE 3k 3k aye ake Sk sz a HC P LLLI LIII 


* 
* 


GET CHR 


* 


SERINI 


BREAKF 


PUTCHR 
PUTCH1 


PUTCHX 


* 


EDITOR 
EDIT1 


EDITX 
DELETE 


6809 DEBUGGER ROUTINE 
APPROX 960 BYTES 


HERE ARE THE SERIAL I/O ROUTINES FOR THE 6829 


INTERNAL ACIA 


LDA 
BEQ 
ANDA 
CLR 
RTS 


ACIA IN INTERRUPT 


LDA 
BITA 
BNE 
LDA 
STA 
RTI 
LDA 
BRA 


PSHS 
LDB 
BITB 
BEQ 
STA 
CMPA 
BNE 
LDA 
BRA 


PULS 
RTS 


CHAR 
GETCER 
#$7F 
CHAR 


ACIASR 
4502 
BREAKF 
ACIADR 
CHAR 


ACIADR 
BKENTR 


B,A 
ACIASR 
#510 
PUTCH1 
ACIADR 
#$D 
PUTCHX 
SA 
PUTCH1 


A,B 


x 
* 
* 


GET RECIEVED CHARACTER 
NOT READY 
MASK OFF PARITY BIT 


GET STATUS 

CHECK FOR BREAK CHAR 
GO BREAK 
GET CHAR 

SAVE IT 


CLEAR INT 


GET STATUS REG 
CK IF XMIT BUFFER EMPTY 


OUTPUT THE CHARACTER 


INPUT A CHARACTER STRING TERMINATED W/ A C.R. OR ESC 


LDX 
BSR 
CMPA 
BEQ 
STA 
CMPA 
BEQ 
CMPA 
BNE 
RTS 
CMPX 
BEQ 
LDA 
BSR 


#CHRBUF 
GETCHR 
#DEL 
DELETE 
@,X+ 
"T 
EDITX 
#518 
EDIT2 


#CHRBUF 
EDIT1 

8 BS 
PUTCHR 


GET CHAR BUFFER ADDRESS 
GET A KBD CHAR 
COMPARE TO DELETE 


PUT IT IN THE BUFFER 
CK FOR A C.R. 


CK FOR AN ^ESC' CHAR 
GO ON TO NEXT 


DONT BACKUP TOO FAR 
TOO FAR 
BACKSPACE 


Al E CORPORATION 


F079 350 
FO7B 20 


ΕΟΤ) 8D 


FO?F 29 


1F 
E2 


C6 
DE 


EDITZ 


BACKUP 
*1 K 
EDIT1 


PUTCHR 
EDIT1 


POINTER 


GO OUTPUT THE CHARACTER 


Al CORPORATION 


F@81 
2085 
F285 
F87 
F089 
F28B 
F28D 
F28F 
F291 
F393 


F394 
F396 


F398 
FZ9A 


FØ9C 
FO9E 
FAD 


FOA2 
FOA4 
FAG 
FOA8 
FOAA 


FOAB 
FOAD 
FOAF 
ΕΟΒΙ 


FO B3 
FOBS 
F@B8 


A6 
27 
81 
27 
81 
26 
86 
8D 
20 
39 


86 
20 


86 
22 


8D 
86 
ep 


8D 
81 
27 
8D 
39 


86 
8D 
86 
20 


8D 
8E 
16 


8e 
OE 
5E 
OA 
40 
22 
@D 
B4 
EE 


20 
AD 


QD 
A9 


F6 
SF 
AS 


86 
1B 
øz 
9B 


ØD 
96 
21 
92 


A7 
E836 
3477F 


PRTEXT 


PCHR 
EXITXT 


SPA 


CRLF 


ERROR 
ERROR1 


INPCHR 
INPCH1 


INP CX 


NEWLIN 
NEWLN1 


a 


INPNUM 


OUTPUT DEBUG TEXT STRING TO ACIA 


LDA g,X* LOAD ACCA WITE CHAR 

BEQ EXITXT 

CMPA Β΄ CHECK FOR END CHARACTER 
BEQ EXITXT 

CMPA #°@ TEST FOR SIMULATE C.R. 
BNE PCHR | 
LDA &50D YES GET C.R. | 
BSR PUTCHR PRINT CHARACTER 

BRA PRTEXT BRA TO DO NEXT CHARACTER 

RTS 

LDA β΄ PRINT ONE SPACE 


BRA PUTCHR 


LDA #5D PRINT A C.R. 
BRA PUTCHR 


BSR SPA DO A SPACE 
LDA 9^ DO A °?’ 
BRA PUTCHR 


BSR GETCHR 


CMPA #$1B CK FOR ESC CHAR 

BEQ INPCX IF SO, DON'T PRINT IT 

BSR PUTCHR 

RTS 

LDA #$ 2D LOADS A CARRIAGE RETURN 
BSR PUTCHR 

LDA 8^] LOADS A PROMPT CHARACTER 


BRA PUTCHR 


INPUT 16 BIT NUMBER INTO THE A:B REGISTER 


BSR EDITOR INPUTS A STRING OF DIGITS 
LDX #CHRBUF LOADS ADDR OF FIRST DIGIT 
LBRA ASCBIN CONVERTS TO BINARY # IN A:B 


1650} SF 
EC 6A 
83 0061 
ED 6A 
8E F661 
on * B7 
1F 41 
8D 50 
B6 89201 
85 24 
27 g5 
B6 8020 
20 F4 
1C EF 
20 44 
E6 89 
8D 05 
8D Bg 
39 

86 28 
97 45 
58 

D? 46 
25 4 
86 50 
20 22 
86 51 
17 FF4E 
DC 45 
4A 

26 EB 
39 

8D 05 
8D 25 
8D 91 
59 

A6 89 
17 6149 
69 

87 D2 
8D Fi 
8D EF 
8D ED 
8D 59 
8D E? 
8D ES 


* 


BKENTR 


BLOOP 


GOBUG 


CVBIN 


CVBIN1 
BINEXT 


PRINT1 
PRTBIN 


OUT4HX 
OUT2HX 


OUT2CH 


* 


BREAKPOINT ENTRY USED BY SWI 


STS STKPTR SAVE STACK POINTER 
LDD 10,5 LOADS RETURN ADDRESS 

SUBD #1 SUB 1 FROM RETURN ADDRESS 
STD 106,5 RESTORES RETURN ADDRESS 
LDX #RGTEXT PRINT REGISTER HEADINGS 

BSR  PRTEXT 

TSX | 
TFR — S,X 

BSR PRTREG PRINT REGISTER VALUES 

LDA ACIASR CECK FOR BREAK - 

BITA — 8504 STILL IN PROGRESS 

BEQ GOBUG WAIT 

LDA ΑΟΙΑΡΒ CLFAR INT 

BRA  — BLOOP 

CLI 

ANDCC #$EF | 
BRA DEBUG 

LDB  Ø,X+ GET C.C. REG DATA 

BSR  CVBIN1 CONVERT TO BINARY 

BSR SPA PRINT A SPACE 

RTS 

LDA #8 GET COUNTDOWN VALUE 

STA TMP1 

ASLB GET BINARY DIGIT I 
SIB TMP1+1 SAVE REMAINDER OF DATA 

BCS PRINTI 

LDA #0 

BRA PRTBIN 

LDA 8'1 

LDD TMPi 

DECA 

BNE ΒΙΝΕΧΤ 

RTS 


BSR OUT2CH 
BSR OUT2CH 


BSR SPA 
RTS 

LDA @,X+ 
LBSR PNTBYT 
RTS 


* PRINT REGISTER CONTENTS 
* 


PRTREG  BSR CVBIN 


LBSR PUTCHR JUMP TO PRINT 2 OR 1 


BRA TO CONVERT C.C. REG 


BSR OUT2HX PRINT ACC A 

BSR QUT2EX PRINT ACC B 

BSR QUT2ZHX PRINT DP 

BSR OUTAHX PRINT X INDEX REG 
BSR OUT4HX PRINT Y INDEX REG 
BSR OUT4HX PRINT 


U PTR. 
H CORPORATION / 


F118 8D 
F11A 8E 
F11D 8D 
F11F 39 


/ 


BSR 
LDX 
BSR 
RTS 


OUT4HX 
#STKPTR 
OUT4HX 


PRINT PROGRAM COUNTER 


PRINT STACK POINTER 


Al CORPORATION / 


32 


8D 
17 
8E 
A1 
27 
ac 
27 
39 
20 


AD 
20 


HEME 3k He HE A OK Ie Be ale ake Aeae e I 3k 3k Bk ake 3k a ake 3k ake ake ake ke ae fe ake k ok fe ak 5k ok k ake afc aie ake 


* * | 
* ACTUAL DEBUGGER PROGRAM * 


* * | 
sk ACCA sk Ca a te eode eo texte ae ae ake ae ae ak ae a ae aca ok ae ae eate stet texte xe ak | 


POPLIN LEAS 2,5 CLEANS UP STACK FOR DISPL, 
* OF C.R. > 

DEBUG BSR NEWLIN PRINTS "C.R.»" 

DEBUG1 LBSR INPCER READS IN COMMAND 


DEB11 LDX #DEBTBL GET DEBUG COMMAND TABLE 


DEBUG2 CMPA 2,X 


BEQ DEBGO GO IF A MATCH IS FOUND 

CMPX #DEBTX CK FOR END OF TABLE 

BEQ DEBGO BRA IF A MATCH 

LEAX 3,X 

BRA DEBUG2 GO BACK FOR NEXT MATCH | 
DEBGO JSR [1,X] JUMP TO THE SUBROUTINE | 


BRA DEBUG1 


DEBTBL FCB ⁄/ OPEN CURRENT LOCATION | 
FDB OPNCUR | 
FCB “G CLEAR BREAK 
FDP CLRBRK | 
FCB " CHANGE MEMORY CONTENTS 
FDB CHANGE 
FCB ^ OPEN NEXT LOCATION 
FDB OPNNXT 
FCB ΄- OPEN PREVIOUS LOCATION 
FDB OPNPRE 
FCB ^B SET Α BREAK POINT | 
FDB BRKSET 
FCB ^E EXECUTE (SET REG VALS & (G 
FDB EXESBR | 
FCB “G JUMP TO OPENED LOCATION | 
FDB GOLOCN 
FCB “J JSR TO OPENED LOCATION 
FDB JMPLCN | 
FCB ο OPEN A LOCATION | 
FDB OPNLOC | 
FCB ^R RETURN FROM INTERUPT 
FDB RTFINT 
FCB ^$ OPEN CURRENT STACK POINTE 
FDB OPNSTK 
FCB $13 SET STACK POINTER TO OPENE 
FDB SETSTK 
FCB "M MEMORY TEST 
FDB MEMTST | 
FCB ^P PRINT REGISTER VALUES 
FDB PREGS 
FCB “L LOAD PROGRAM/DATA INTO RA 
FDB LODRAM 
FCB ^R HELP: PRINT DEB COMMAND 
FDB HELP 

BIB e 


΄ 


κ 
EXITD 
$D 
NEWLN1 


EXIT DEBUGGER 


C.R. TERMINATOR 


Ix j A CORPORATION / 


9E 
96 
A7 
9r 
8E 
17 
16 


17 
9E 
E7 
2e 


9E 


30 
Iz 
20 


9E 


20 
17 
20 


9E 
A6 
97 
9} 
86 
A? 
8E 
17 
16 


1058 
10DF 
8E 
1 
16 


8E 
17 
16 


9E 
12CE 
6} 


9E 
12CE 


F68E 
FEC8 
FF64 


49 
SF 
F6A4 
FEB9 
FF57 


F6 B@ 
FEBO 
FF4C 


49 
ECOQ 
84 


49 
EC? 


DEBTX 


CLRBRK 


CHANGE 
CHANG1 


OPNNXT 
OPNXT1 


OPNPRE 


BRKSET 


SETSTK 


DEBERR 
RETRN1 
GOLOCN 


JMPLCN 


$13 ESC TERMINATOR 

NEWLIN | 

ø | 

DEBERR 

BRKADR GETS ADDRESS OF BRKPNT 

BRKSAV LOADS ORIG BYTE CONTENTS 

Q,X RESTORES BYTE DATA 

PCVAL | 

HCLTXT 

PRTEXT PRINT "CLR BRK’ 

DSPAD1 

INPNUM INPUTS NEW BYTE CONTENTS 

PCVAL LOADS OPENED BYTE LOCATION 

a,x STORES NEW BYTE CONTENTS 

OPNXT1 

PCVAL 

FORMS NEXT LOCATION ADDRESS 

3 X 

DSPADR GOES TO OPEN LOCATION BYTE 

NCHG 

PCVAL | 

FORMS PREV LOCATION ADDR 

“1-1 

DSPADR COES TO OPEN THE LOCATION 

NCHC | 

PCVAL | 

Q,X LOADS DATA OF OPENED LOC 

BRKSAV SAVES DATA OF OPENED BYTE | 

BRKADR SAVES ADDR OF BREAKPOINT | 

#S3F LOADS SOFTWARE INTRUP COMMD 

Q,X SETS A SWI AT OPENED PIT 

#BKTXT PRINT "BREAK 

PRTEXT 

POPLIN GOES TO NEXT LINE FOR COMMD 
| 

PCVAL | 

STKPTR . . | 

#SKTXT PRINT "SET STACK 

PRTEXT 

DEBUG RETURNS TO INPUT COMMAND 

#OPTEXT . : 

PRTEXT PRINT "INVAL COMM 

POPLIN | 

PCVAL | 

#STKINI CLEAN STACK ON GO | 

Ο.Χ JUMP TO USER PROGRAM 

PCVAL 

#STKINI CLEAN STA JSR 


[5 CORPORATION ; 


F1E2 AD 84 JSR g,X 
F1E4 20 EB BRA RETRN1 


AIA CORPORATION ; 


FEAS 
FEC1 


F289 1F 89 
F20B 17 FE86 
F20@E 1F 98 
F218 17 FES2 
F213 8E E836 
e F216 A? 80 
F218 17 FF44 
F21B 8E E836 
F21E 17 23519 
F221 16 FF6B 
F224 17 FED 
F227 32 62 
F229 16 FEFB 


7 


OPNCUR 


OPNLOC 


Zeek 3t 


CHG 


CHG 


NEX 


RTFINT 


OPNSTK 


EXITD 


x 


DSPADR 
DSPAD1 


DSPAD2 


LDX 
BSR 
BRA 


LBSR 
LBSR 
STD 
BSR 


LBSR 
CMPA 
BMI 
CMPA 
BLE 
CMPA 
BMI 
CMPA 
BGT 
TFR 
LBSR 
TFR 
LBSR 
LDX 
STA 
LBSR 
LDX 
LBSR 
LBRA 
LBSR 
LEAS 
LBRA 


LEAS 
RTI 


TSX 
TFR 
LEAX 
BRA 


LDS 
LBRA 


DISPLAY LOCATION ADDRESS & CONTENTS 


STX 
LBSR 
BSR 
LBSR 
LDX 
LDA 
BRA 


PCVAL 
DSPADR 
NCHG 


SPA 
INPNUM 
PCVAL 
DSPAD2 


HAVING JUST DISPLAYED THE OPEN LOCATION, 
INPUT IS A HEX CHARACTER - TREAT IT AS A CHANGE 


GETCHR 
#$30 
NEX 
#$39 
CHG 
#341 
NEX 
#546 
NEX 

A,B 

SPA 

ΒΑ 
PUTCHR 
#CHRBUF 
@,X+ 
EDIT1 
#CHRBUF 
ASCBIN 
CHANG1 
INPCH1 


2, X 
DSPADR 


#$ FF 
DEBUG 


PCVAL 
NEWLIN 
PNTDIG 
SPA 
PCVAL 
g,X 
PNTBYT 


OPEN CURRENT LOC IN PCVAL 


LOADS Α 16 BIT NUMBER | 
STORES NEWLY OPENED LOCATION 
DISPLAYS CONTENTS OF ATA 


IF NEXT 


GET NEXT INPU CHAR 
«9 IS NOT HEX 
0-9 IS O.K. FOR CHANGE 
<A IS NOT HEX | 
»F IS NOT HEX 
SAVE CHAR 
PRINT A SPACE 
GET CHAR BACK 

ECHO IT 


STORE CHAR 
CET REST OF CHANGE DATA 


CONVERT IT TO BINARY 

ECHO CHAR IF NOT ESC | 
CLEAN STACK 

BACK TO PROCESS CHAR AS COMM 


CLEANS UP THE STACK 
RETURNS FROM ERMAS 


TOP OF THE STACK 


| 


SAVES OPENED LOCATION, ADDR 
PRINTS A "C,R." AND ”! 
PRINTS OUT "PCVAL" IN HEX 


LOADS PTR TO OPENED LOCATIQN 
LOADS DATA FROM LOCATION 
PRINTS DATA IN HEX FORMAT 


Al Ei CORPORATION / 


d 


96 
8D 


49 
@2 
4A 


02 


FDF2 
FE?1 


E6 


FDE2 
FE11 


PNTDIG 


* 


PNTBYT 


PNTASC 


PNTBF1 
* 
* E 
* 
EXESBR 


EXES1 


EXES2 


EXESS 


EXES7 


E 


LDA 
BSR 
LDA 


PRINT OUT 2 HEX 


PSHS 
LSRA 
LSRA 
LSRA 
LSRA 
BSR 

PULS 
ANDA 
ADDA 
CMPA 
BLS 

ADDA 
LBRA 


EXECUTE. SET REGISTER VALUES & GOTO (PC) 


LEAS 
LDA 
LDX 
BSR 
DECA 
DECA 
LEAX 
CMPA 
BGE 
INCA 
BSR 
DECA 
LEAX 
TSTA 
BGE 
LDB 
ORB 
STB 
RTI 
PSHS 
LBSR 
LBSR 
TFR 
PULS 
Sif 
RTS 
PSHS 
LBSR 
LBSR 
PULS 
STB 
RTS 


PCVAL 
PNTBYT 
PCVAL+1 


A 


PNTASC 
A 

#$F 
4930 
4539 
ΡΝΤΕΕΙ 
47 
PUTCHR 


12,5 
510 
S8PCVM 
EXESS 


404 
EXES1 


EXES? 
5 ,X 


EXES2 
9,S 
4580 
0,5 


A 
PRTEXT 
INPNUM 
D,Y 

À 

A,S 


A 
PRTEXT 
INPNUM 
A 

A,5 


* REGISTER PROMPTS 
* 


DIGITS 


PRINTS THE 2 HI HEX DIGITS 
OF THE OPENED ADDRESS 
PRINTS OUT 2 LO HEX DIGITS 


SAVE FOR LO DIGIT CONTE 
SHIFT HI NIBBLE RI( 


GO CONVERT TO ASCII 
RETRIEVE ORIGIN 
MASK OFF HI NIBBLE 
CONVERT TO ASCII 
CK IF HEX 


CONVERT TO HEX CHAR 
DISPLAYS CHARACTER 


MAKE SPACE FOR 12 BYTES ON 


GET VALUE & STOR 
ON STACK. 


EACH TIME: PRINT "Pcs" iud 


| 


1 BYTE REGS:PRINT, GET VAL 
& STORE IN DP,B,A, 


ON STACK. | 


FOR CC, MAKE SURE E IS ο, 
| 


PULL REGS FROM s1 
FOR 2 BYTE REGS: PRINT 
CET VAL & STORE IT. 


sh 


FOR 1 BYTE REGS AS EXESE 


e | = CORPORATION / 


F2B0 
F2B1 
F2B2 
F2B3 
F2R4 
F2B5 
F256 
¥2B7 
F2B8 
F2B9 
F2BA 
F2BB 
F2BC 
F2BD 
F2BE 
F2BF 
F2CÓ 
F2C1 
F2C2 
e F2C3 
F2C4 
F2C5 
F2C6 
F2C7 
F2C8 
Τ269 
F2CA 
F2CB 
F2CC 
F2CD 
F2CE 


"d 


FCC 


FCC 


FCC 


FCC 


FCC 


FCC 


8E 
17 
17 
81 
27 
81 
27 
T7 
17 
20 
17 
86 
20 
4r 
97 
8D 
81 
26 
8D 
81 
ae 
81 
26 
ΘῈ 
8D 
89 
97 
8D 
8D 
OA 
27 
A? 
20 
σος 
27 
8E 
17 
16 
8E 
20 


8D 
97 
8D 
97 
9E 
39 


* RAM LOADER 
* 


LODRAM 


UNIT2 


UNITI 
UNIST 
LOAD1 


LOAD11 


LOAD15 


EXITL 
EOF 


ο HHH 30 H 


ADDR 


κ * * 


LDX 
LBSR 
LBSR 
CMPA 
BEQ 
CMPA 
BEQ 
LBSR 
LBSR 
BRA 
LBSR 
LDA 
BRA 
CLRA 
STA 
BSR 
CMPA 
BNE 
BSR 
CMPA 
BEQ 
CMPA 
BNE 
CLR 
BSR 
SUBA 
STA 
BSR 
BSR 
DEC 
BEQ 
STA 
BRA 
INC 
BEQ 
LDX 
LBSR 
LBRA 
LDX 
BRA 


BSR 
STA 
BSR 
STA 
LDX 
RTS 


#WHICH 
PRTEXT 
INPCHR 
#$31 
UNIT2 
#$30 
UNIT1 
ERROR 
CRLF 
LODRAM 


#LDERM 
PRTEXT 
DEBUG 
#LDOK 
EXITL 


BYTE 
TMP 
BYTE 
TMP*1 
TMP 


^ 


| 
| 
"UNIT?" (G=TERM=ACIA / 1=ACIi 


GET 1 CHAR RESPONSE 
IS IT À 17 


IS IT A 2? 
PRINT A "?" 
& CR/LF 
& ASK AGAIN | 
INITIALIZE ACIA2 | 


TERMINAL IS ALREADY 
SAVE UNIT FLAG 
GET A CHAR VIA SELECTED UN] 
1ST GOOD CHAR IS "s" | 
GET ANOTHER CHAR 
59 => EOF 


"S1" => START OF RECORD 
OTHERWISE MUST BE GARBAGE 
START RECORD: CLEAR CHECKS 
READ A BYTE | 


SAVE COUNT OF DATA BYTES I 
BUILD RAM ADDRESS (WHERE το 
CET A BYTE 

BRANCH IF WE COT SPECIFIED 4 
ELSE SAVE BYTE 
& LOOP 
GOT SPECIFIED # OF Id 

i 


CHECKSUM O.K. GO LOOK FOR 
"CHECKSUM ERROR" 


BACK TO DEBUGGER TO vem 
"LOAD O.K.` 
EXIT LOAD 


RAM LOADER INPUT & UTILITY ROUTINES 


BADDR BUILDS A 16 BIT ADRESS FROM THE 1ST 4 CHARS OF THE 
RECORD FOLLOWING "s1' 


GET A HEX BYTE x 
GET ANOTHER HEX BYTE | 
RETURN WITH 16 BIT ADDRESS 

| 


BYTE READS 2 CHARS & FORMATS THEM INTO THEIR BYTE VALUE 
IT ADDS IN BYTE VALUE TO THE CHECKSUM ATA 


CORPORATION 


15 


92 
@D 
OF 
E4 
89 
53 
53 
61 


18 
350 
OF 
59 
OA 
41 
Q7 
46 
23 
27 


F391 
B9 


52 
09 
91 
FC 
7F 
51 


ΤΟΒΘ 


40 
59 
4E 
49 
54 
SF 
9E 
40 
43 
4B 
53 
55 
4D 


BYTE BSR INHEX GET 1 CHAR 
ASLA 
ASLA 
ASLA 
ASLA SHIFT TO HI 4 BIT 
PSHS A SAVE HI 4 BITS (LO 4 B 


* 
* INHEX GETS AN INPUT ASCII CHARACTER, CHECKS IT FOR VALIDITY 
* AND RETURNS IT AS BINARY CODED HEX DIGIT 
INHEX BSR INCE GET A CHAR 
CMPA — &$30 
BMI DERR <Ø NOT VALID 
CMPA #$39 
BLE INEX Ø =< CHAR =< 9 OK AS IS 
CMPA 4441 
BMI  DERR <A INVALID 
CMPA #$46 
BGT DERR >F INVALID 
SUBA 47 
INEX RTS ' I 
DERR LDX  #BADD DATA ERR 
BRA EXITL 
* 
* INCH GETS 1 ASCII CHAR FROM THE SELECTED UNIT 
* 


INCH LDA UNITN 
INCH2 LDA CHR2 


INCH1 LIBRA GETCHR 


BSR INHEX GET 2ND CHAR 


ANDA HSCF MASK TO LO 4 BITS 

ADDA 0.5 ADD IN HI 4 

TFR A,B COPY BYTE TO B 

ADDB CKSM ADD BYTE VALUE INTO CHECK 
STB CKSM SAVE NEW CHECKSUM VALUE 
cM 1,5 CLEAN UP STACK 

RTS 


IF (UNIT .EQ. 2) 


BEQ INCH1 THEN BRANCH 


BEQ INCH2 


ANDA LENA 
CLR CHR2 
RTS 


* LOAD RAM MESSAGES 

x 

WHICH PCC "GUNIT?^" 
LDERM FCC "@CKSUM ERRG^" 


BETWEEN A & F SUBTRACT 7 


ELSE GET IT FROM ACIA2 
WAIT FOR CHAR TO BE PUT IN 
VIA INTERRUPT. MASK OFF P 


Al CORPORATION 


i 
| 
| 


USE REGULAR KEYBOARD READ ROU 


| 


: 


a 


> c> 


LDOK FCC 


BADD FCC 


* 
* 
* 
PREGS LDX 
LBSR 
LEAX 
LBSR 
LBRA 


* 
* HELP: PRINT 
* 
H 


OCM FCC 


ν. e^ "m 


GLD 0.K.@ 


“CDATA  ERR@” 


PRINT REGISTERS 


#RGTEXT 
PRTEXT PRINT HEADING LINE 
2.5 

PRTREG PRINT RECISTER VALUES 
POPLIN RETURN VIA POPLIN 


DEBUGGER COMMANDS 


4859D 

PUTCER NEW LINE BEFORE PRINTING 
#0CM 

PRTEXT 

“/ OPEN CURRENT LOCC” 


Al CORPORATION 


CBM 


CMM 


ONM 


CLEAR BREAKPOINTG" 


CHANGE OPEN LOC TO XXQG" 


OPEN NEXT LOCE” 


Al E CORPORATION / 


OPM 


SBM 


OPEN PREVIOUS LOCG" 


SET BRKPT IN OPEN LOCG" 


Al CORPORATION / 


f 


JOM 


JSM 


LRM 


GOTO OPEN LOCQG" 


JSR TO OPEN 1066” 


LOAD PROG/DATA INTO RAMQ” 


OLM 


RIM 


OSM 


FCC 


FCC 


FCC 


"τ 


OPEN LOC XXXXG" 


RETURN FROM INTG" 


OPEN STACK PTR 1008” 


n Í [9] CORPORATION ; 


SSM FCC 


MTM FCC 


"CTL-S 


SET STACK PTR TO OPEN LOCQG" 


MEMORY TESTE” 


Rn | E CORPORATION / 


HLM 


XTM 


PRINT REGISTERSQG" 


HELP: PRINT DEBUGGER COMMANDSG" 


EXIT DEBUGGERQ ” 


Al Ej CORPORATION / 


END OF DEBUGGER πο ο ο ard i oe ev. v Craver e 


Al CORPORATION 


F535 
F538 


F53A 
F53D 
F53F 
F541 
F543 
F545 
F547 
F549 
F54B 
F54D 
F54F 
F551 
F553 
F555 
F557 


F559 
F55B 
F55E 
F569 
F562 
F564 


F566 
F568 
FS6A 


* 


3 HH 3t 


ASCDEC 
ASCBIN 
ASC2 

NXTCHR 


ASCS 
CNVASC 


AEXIT 


ASCII TO BINARY CONVERSION 
CONVERT AN ASCII NUMBER STRING TO BINARY POINTED TO 
BY X TO AN UNSIGNED 16 BIT BINARY NUMBER IN A:B 
EXIT WITH XREG POINTING TO NEXT POSITION AFTER 
THE END OF THE STRING 
LDD 812 CONVERT ASCII TO DECIMAL 
BRA ASC2 
LDD #16 LOADS BASE 16 FOR CONVRSN 
STD ARA SAVES BASE IN BASE # 
PSHS A PUSH A ZERO ONT 
LDB Ø, X+ GETS CHAR TO CONVERT 
CMPB #2 TESTS FOR END-OF-STRING 
BLT AEXIT EXITS IF END 
SUBB  4'Q FORMS B.C.D. NUMBER 
CMPB 410 TESTS IF DECIMAL DIGIT 
BLT ASC3 SKIPS IF DECIMAL 
CMPB #16 TESTS FOR END OF STRING 
BLE AEXIT EXITS IF NOT A HEX DIGIT 
SUBB #7 FORMS A HEX B.C.D. DIGIT 
CMPB #16 TESTS FOR END-OF-STRING 
BGE AEXIT EXITS IF CHAR >"F 
STB TMP1 SAVES DIGIT FOR ADD 
PULS B RESTORES LO OF "NUMBER" 
LBSR MULT NUMBER GETS NUMBER * BASE 
ADDB ΤΜΡΙ NUMBER GETS NUMBER + DIGIT 
ADCA 40 
PSHS B SAVES LO OF NUMB 
BRA NXTCHR GOES TO CONVRT NEXT CHAR | 
DEX | 
LEAX  -1i,X À 
PULS B RESTORES NUMBER 
RTS RETURNS TO CALLING 


| 


Al B CORPORATION / 


F56B 
F56D 
F57@ 


F572 
F574 
F577 


F579 
FS7B 


F57E 
F580 


F582 
F584 
e F586 
F588 
F58A 


F58C 
F58E 
F598 
F592 
F594 
F595 
F597 
F598 


F59A 
F59C 
F59E 
F59F 
F5A1 


F5A2 
F544 
F546 
F548 
F5AA 
F5AC 


OF 


43 
200A 
ος 


45 
0010 
25 


43 
29908 


54 
7Y 


E4 
E4 
34 
32 
77 


45 
33 
24 
45 


EF 
EC 


43 
04 


21 


69 
02 
07 
20 
89 
EE 


κ 


HARK KH 


BINDEC 


BINHEX 


BINOCT 


BINASC 


BIN1 


BINSTR 


BINS 


BIN4 


BINS 
BINOUT 


BINARY TO ASCII ROUTINE | 


CONVERT A 16 BIT BINARY NUMBER IN A:B TO A STRING OF | 
ASCII DIGITS. 
FROM 2 THROUGH 41. THE VALUE OF THE BASE IS IN ARB 
ON ENTRY X MUST CONTAIN THE OUTPUT POINTER 

ON EXIT X POINTS TO THE LAST DIGIT +1 

THE NUMBER WILL BE LEFT JUSTIFIED W/ NO LEADING ZERO 


STX 
LDX 
BRA 


STX 
LDX 
BRA 


STX 
LDX 


STX 
DES 
LEAS 


CLR 
COM 
LDX 
STX 
BSR 


STB 
LDB 
PSHS 
LDB 
TSTB 
BNE 
TSTA 
BNE 


LDX 
PULS 
TSTB 
BPL 
RTS 


CMPB 
BLE 
ADDB 
ADDB 
STB 
BRA 


TMP 
#19 
BINASC 


TMP 
#16 
BINASC 


TMP 
#8 


ARB 
SET 
-1 Pas) 


2,5 
2,5 
ARB 
ARA 
DIVIDE 


TMP1 
ARA+1 
B 
TMP1 
BIN1 
BIN1 


TMP 


THE ASCII STRING CAN BE IN ANY BASE | 


SAVE OUTPUT POINTER | 
SET BASE TO DECIMAL | 


SAVE OUTPUT POINTER | 
SET TO BASE 16 HEX 


SET BASE TO OCTAL 


SAVE OUTPUT POINTER 
TOP-OF-STACK TO 


ALL ONES TO TELL END OF | 
CHAR STRING (LAST CHAR IS 
PUT ON STACK FIRST) 


GET DIVISOR BASE 


SAVE B OF AsB 
LOAD DIGIT REMAINDER 
STACK DIGIT 
RESTORE B OF A:B 
TESTS IF QUOTIENT 


| 
1 
I 
] 


CET OUTPUT POINTER 
UNSTACK À DIGIT 
CK IF END 
BRA IF NOT 
EXIT ROUTINE 


CK IF A HEX DIGIT 
BRA IF NOT 

CONVERT TO HEX DIGIT 
FORM ASCII DIGIT 


R i n CORPORATION / 


FSAE 


F5B0 
FSBS 
F5B5 
FOB? 
F5B9 
F5BC 
FSBE 
F5C2 
F5C1 
F5C3 
F5C4 
F5C6 
F5C8 
FSCA 
F5CC 
FSCE 
195101 
F5D2 
F5D4 
F5D7 
FSD9 
FSDB 
FSDE 


F SEO 
F5E2 


BC 


8E 
8D 
6F 
D6 
8E 
A6 
27 
5A 
26 
5D 
27 
86 
@D 
26 
86 
17 
5A 
26 
8E 
A6 
27 
17 
eg 


OF 
69 


46 


OUT DZ 


OUT DEC 


OUTD1 


OUTD2 


OUTDS 


OUTD4 
QUTD5 


OUTDX 


CONVERT A 16 AIT NUMBER IN A:B TO DECIMAL AND 
OUTPUT IT WITH LEADING ZEROS & RIGHT JUSTIFY 


INC 


LZFLG 


TURN ON LEADING ZEROS FLAG 


CONVERT A:B TO DECIMAL & BLANK LEADING ZEROS 


LDX 
BSR 
CLR 
LDB 
LDX 
LDA 
BEQ 
DECB 
BNE 
TSTB 
BEQ 
LDA 
TST 
BNE 
LDA 
LBSR 
DECB 
BNE 
LDX 
LDA 
BEQ 
LBSR 
BRA 


CLR 
RTS 


#CHRBUF 
BINDEC 
g,X 
NUMDIG 
#CHRBUF 


PUTCHR 


OUTD2 
#CHRBUF 
Q,X* 
OUTDX 
PUTCHR 
OUTDS 


LZFLG 


GET OUTPUT POINTER 
GO CONVERT 
SET UP TERMINATOR 
GET # OF DIGITS TO OUTPUT 
GET BUFFER POINTER BACK 
GET CHAR 
BRA IF A TERMINATOR 


COUNT LEADING ZEROS 


BRA IF NOT DONE 


GET AN ASCII @ 
CK IF LEADING ZEROS 
BRA IF SO 
GET A SPACE CHAR 
OUTPUT BLANK OR @ 


GET CHAR 
EXIT IF DONE 
OUTPUT THE CHAR 
GO BACK FOR MORE 


c | A CORPORATION / 


| 


F5ES 
F5E5 
FSE? 
F5E8 
FSEA 
FSEC 
FSEE 
F5EF 


F5Y1 
F5F2 
F5F4 
F5F6 
F5F8 
F5FA 
F5FB 
F5FD 
F5FE 
F628 
F682 


* 


TE dB 3p G6 * σα X 


MULTIPLY ROUTINE 


MULTIPLY TWO 16 BIT BINARY NUMBERS TO PRODUCE A 
THE CONTENTS OF ARA REMAIN UNCHANGED 


16 BIT RESULT. 
A:B = A:B X ARA 


------- I B*ARA(LO) 


------- I RESULT IN A:B 


ARA(LO) -> A 


ARA(LO) -> B | 


BYTE OF RESULT 


B*ARA(HI) 
A*ARA(LO) 


CREATE 2 BYTE TEMP & SAVE 


B*ARA(LO) -> A:B 
SAVE PARTIAL RESULTS | 
A> A 


A*ARA(LO) -> AsB 
LO BYTE OF PROD TO HI 


ADD IN PREV PARTIAL RESU 


CLEAR LO BYTE OF in 
SAVE IT 


B -> B | 
ARA(HI) -> Λ 
B*ARA(HI) -> A:B 
LO BYTE OF PROD TO HI OF R 


ADD IN PREV PARTIAL RESIT 
CLEAN UP STACK 
DONE 


ΗΒ CORPORATION / 


FESS 
F685 
F607 


F689 


F60B 
F60D 
FOF 
F611 
F613 
F614 
F616 
F618 
F61A 
F61C 
F61E 
F620 
F622 
F624 
r F626 
F628 
F62A 


F62C 
F62E 


F632 
F632 
F634 
F636 
F638 
F63A 
F63C 
Σ65Ε 
F640 
F642 
F644 


F645 
F646 
F647 
F648 
| EIU 
F64A 
F64B 
F64C 
F64D 


He Et 


DIVIDE 


DIV1 


DIV2 


DIVS 


DIV4 
DIVS 


* 


RESTXT 


DIVIDE A 16 BIT NUMBER IN A:B BY A 16 BIT 
NUMBER IN ARA. EXIT WITH A:B = QUOTIENT AND THE 
REMAINDER IN ARA. 


PSHS 
LDD 
PSHS 
DES 
LEAS 
TSX 
TFR 
LDB 
TST 
BMI 
INCB 
ASL 
ROL 
BMI 
CMPB 
BNE 
STB 
LDD 
CLR 
CLR 
SUBD 
BCC 
ADDD 
CLC 
ANDCC 
BRA 


SEC 
ORCC 
ROL 
ROL 
LSR 
ROR 
DEC 
BNE 
STD 
LEAS 
PULS 
RTS 


HERE ARE ALL THE DEBUGGER MESSAGES 


FCC 


DIVIDE ROUTINE 


A:B = A:B/ARA 


B,A LOADS DIVIDEND INTO X3,4 
ARA GET DIVISOR FROM ARA 
B,A PUT DIVISOR INTO X1,2 
i 

-1,$ | 
S,X | 
#1 INITIALIZE COUNT 
1,X TEST FOR HI DIVISOR BIT 
DIV2 BRA IF YES 

COUNT LEADING ZEROS 
2,X LEFT JUSTIFY X1,2 
4X 
Div2 BRA IF NO LEADING ZERO 
#17 CK FOR ALL ZERO DIVISION. 
DIV1 GO BACK IF BITS LEFT | 
g,X SET COUNTER 
Sak A:B GETS ORIGINAL DIVIDEND 
Sox | 
4,X 
TX START OF DIVIDE LOOP 
DIV4 BRA IF DIVIDEND < DIVISOR 
L X RESTORE DIVIDEND IN A:B 
#$FE 
DIV5 | 
401 
4,X 
Sek 
1. X SHIFT DIVISOR X1,2 RIGHT 0 
BE 
Ο.Χ DECR COUNTER 
DIV3 BRA IF NOT DONE 
ARA SAVE REMAINDER IN ARA 
555 CLEAN UP THE STACK 
A, B GET QUOTIENT IN ñ: 


/G*ATA CORP, 6809 DEBUGGER*Q / 


Ala CORPORATION LV 


RGTEXT 


FCC 


/@ 


EFHINZVC A B DP XREG YREG UREG PC 


m= ! E CORPORATION 


BKTXT FCC 
CLTXT FCC u 
SKTXT FCC i 
OPTEXT FCC " 


BREAK^" 


CLEAR BREAK” 


SET STACK `” 


? INVALID COMMAND `” 


= | F: CORPORATION 


F6C3 
F6C6 
F6C9 
F6CC 
F6CE 
F6D1 
F6D4 
F6D7 
F6DA 
F6DC 
F6DF 
F6E1 
F6E3 
FEES 
FEEB 
F6EA 
F6EC 
ΕΘΕΡ 


F6F1 
F6F3 


F6F5 
F6F7 
F6F9 
F6FB 
F6FD 


FOFF 
F721 
F703 
F795 


F706 


F728 
F7OA 
F72C 
F7CE 
F7OF 
F711 
F714 
F717 
F719 
F"71A 
F71C 
F71E 
F71F 
F721 


F722 
F724 
F726 


8E 
BD 
BD 
DD 
8E 
BD 
BD 
C3 
DD 
BD 
9E 
86 
34 
BD 
35 
34 
BD 
35 


20 
A7 


32 
9C 
26 
A? 
Ε6 


34 
Al 
27 
oF 


63 


59 
9C 
26 
48 
24 
8E 
BD 
9E 
4F 
97 
A"? 
46 
26 
4C 


350 
96 
26 


30 + κ 


MEMTST 


MEMT1 


MEMT2 


MEMTS 


MEM T4 


LOOPWS 
LOOPW 


WCONT 


RAM MEMORY TEST GENERATES A SWI IF AN ERROR OCCURS 
X CONTAINS THE ERROR ADDRESS & ACCA HAS THE TEST 
ACCB HAS THE RAM ERROR CONTENTS 


PATTERN. 

LDX #MEMTXT 
JSR PRTEXT 
JSR INPNUM 
STD BEGADR 
LDX #EATXT 
JSR PRTEXT 
JSR INPNUM 
ADDD #1 

STD ENDADR 
JSR CRLF 
LDX ENDADR 
LDA #1 
PSHS A 

JSR SPA 
PULS A 

PSHS A 

JSR PNTBYT 
PULS A 

DEX 

LEAX -1,X 
STA @,X 
DEX 

LEAX elk 
CMPX BEGADR 
BNE MEMT2 
STA g,X 
LDB g,X 
CBA MATCH 
PSHS B 

CMPA yor 
BEQ MEMT4 
SWI 

COM @,X 
INX 

LEAX 1,X 
CMPX ENDADR 
BNE MEMTS 
ASLA 

BCC MEMT1 
LDX #OKTXT 
JSR PRTEXT 
LDX BEGADR 
CLRA 

STA TMPF 
STA 9,X 
INCA 

BNE WCONT 
INCA 

INX UPDATE 
LEAX 1,X 
CMPX ENDADR 
BNE LOOPW 


POINTER 


GET TEST MESSAGE | 


GET BEG ADDRESS 
PRINT END ADR MESSAGE 


GET ENDING ADDRESS 
ADD 1 FOR TEST 


GET END ADDRESS 


OUTPUT CURRENT TEST PATTERN 


PUT PATTERN IN CURRENT LOC 


CK IF DONE 

BRA IF NOT 
DO LAST LOCATION 
GET RAM CONTENTS 


BRA IF OK 
ERROR-ERROR -ERROR 


MARK LOCATION TESTED | 


BRA IF NOT DONE 
SHIFT TEST BIT LE 
REPEAT UNTIL ALL BITS TESTE 


Sa 


PRINT "ok" 
GET BEGINNING ADDR. 


SET UP START PATTERN 
STORE N RAM 


TEST FOR TIME TO - 
OFFSET PATTERN 


TEST FOR LAST ADDR. 


FINISH G 
e [23 CORPORATION / 


D1 

F780 
F81 
FØAB 


40 
40 
4D 
45 
4D 
4F 
52 
59 
20 
54 
45 
53 
54 
40 
20 
20 
42 
45 
47 
κο 
41 
44 
44 
22 
20 
SD 
20 
5E 


40 
29 
20 
45 


LDA 
JSR 
LDX 
LDA 
LOOPR LDB 
CBA 
PSHS 
CMPA 
BNE 
INCA 
BNE 
INCA 
RCONT INX 
LEAX 
CMPX 
BNE 
INC 
LDX 
LDA 
BNE 
LDX 
JSR 
JMP 
ERR SWI 


MEMTXT FCC 


FCC 


EATXT FCC 


TMPF GET PATTERN START 


PNTBYT OUTPUT TO CRT 
BEGADR GET START ADDRESS FOR READ 
TMPF GET PATTERN STARTT 
@,X READ RAM 
COMPARE TO KNOWN 
B 
TM 
ERR ERROR 
UPDATE PATTERN 
RCONT CHECK IF TIME TO 
OFFSET 
UPDATE POINTER 
1,X 
ENDADR TEST IT DONE 
LOOPR AGAIN 
TMPF NEW START PATTERN 
BEGADR GET START 
TMPF 
LOOPW DO ANOTHER PASS 
KOKTXT 
PRTEXT 
NEWLIN DONE 


/GGMEMOR TESTG/ 


/ BEC ADDR = ^/ 


/G END ADDR = ^/ 


F775 


F776 
F777 
@ rs 
F779 
F?7A 
F77B 
F?7C 
F77D 
F?7E 
F?7F 


F782 
F781 
F782 
F783 
F784 
F785 
F786 
F787 
F788 
F789 
F78A 
F788 
F78C 

| F78D 
F78E 
F78F 


M F790 


FFF6 


ΡΕΤΘ 
FFF8 
FFFA 
FFFC 
FFFE 


F211 
FOOD 
ΕΦ BB 
POSS 
FOSS 


OKTXT 


FIRQ1 
IRQ1 
SWI 
NMI 
RES 


NUMBER OF SOURCE LINES 
TOTAL ERRORS - 


FCC 


ORG 


FDB 
FDB 
FDB 
FDB 
FDB 


END 


1636 


/QTEST 


$FFF6 


FIRQA 
IRQ1A 
BKENTR 
SERINI 
RESTRT 


Ø TOTAL WARNINGS = 


PASSED ΟΚΩ΄/ 


SYMBOL 


ACI2CD 
CIACR 
ASC2 
BEGADR 
BINDEC 
BKENTR 
BRKSET 
CHANGE 
CLRBRK 
CVBINi 
DEBUG 
DIVi 
DSPAD1 
EDITOR 
ERROR1 
EXITD 
GETCHR 
INCE1 
INPCX 
JOM 
LOAD15 
LZFLG 
MEMTXT 
NEX 
OLM 
OPNPRE 
UT2HX 
UTD5 
PGVM 
PREGS 
PUTCH1 
RESTXT 
SERINI 
STKPTR 
TMR 
WCONT 


ACI2CR 
ACIADR 
ASC3 
BIN1 
BINEXT 
BKTXT 
BS 
CHAR 
CLTXT 
DEB11 
DEBUG1 
DIVe 
DSPAD2 
EDITX 
EXES1 
EXITL 
GOBUG 
INCH2 
INPNUM 
JSM 
LODRAM 
MEMT1 
MTM 
NMI 
ONM 
OPNSTK 
OUT4HX 
OUTDEC 
PNTASC 
PRINT1 
PUTCHR 
RETRN1 
SETSTK 
SWI 
UNZINI 
WHICH 


8005 
8000 
F557 
F586 
FOE? 
F68E 
9008 
E839 
F696 
F127 
F124 
F61E 
F243 
FGF 
F270 
F51D 
FODA 
F368 
FEBS 
F44E 
F2CF 
FOES 
FADC 
FFFC 
ΕΟΕΑ 
F22F 
FOFD 
FSBO 
F25E 
FOF2 
F245 
F1Di 
F1BC 
FFFA 
F015 
F374 


ACI2DR 
ACIASR 
ASCBIN 
BINS 
BINHEX 
BLOOP 
BYTCT 
CHG 
CMM 
DEBERR 
DEBUG2 
DIVS 
DSPADR 
ENDADR 
EXES2 
EXITXT 
GOLOCN 
INEX 
INTA 
LDERM 
LOOPR 
MEMT2 
MULT 
NUMDIG 
OPM 
OPNXT1 
OUTD1 
OUTDX 
PNTBF1 
PRM 
PUTCHX 
RGTEXT 
SKTXT 
TMP 
UNIST 
XTM 


8000 
8901 
FSSA 
F59C 
F572 
FOCE 
E854 
F209 
F3EQ 
Ε1ΟΒ 
F12A 
F626 
FZSC 
E84F 
F27B 
F093 
F1D4 
FS5E 
E857 
F37B 
F731 
F6FS 
FSES 
E84B 
F409C 
F197 
FSBC 
FSEO 
F266 
F4EC 
F259 
F661 
F6A4 
E843 
F2F0 
F522 


ACIZIN 
AEXIT 
ASCDEC 
BIN4 
BINOCT 
BREAKF 
BYTE 
CHR2 
CNVASC 
DEBGO 
DEL 
DIV4 
EATXT 
EOF 
EXESS 
FINTA 
HELP 
INHEX 
IRQ1 
LDOK 
LOOPW 
MEMTS 
NCHG 
NXTCHR 
OPNCUR 
OPTEXT 
OUTDZ 
OUT D2 
PNTBYT 
PRTBIN 
RCONT 
RIM 
SPA 
TMP1 
UNIT1 


ACI2SR 
ARA 
BADD 
BINS 
BINOUT 
BRKADR 
CBM 
CHRBUF 
CRLF 
DEBT BL 
DELETE 
DIV5 
EDIT1 
ERR 
EXES"7 
FIRQ1 
HLM 
INPCH1 
IRQ1A 
LOAD1 
LOCPWO 
MEMT4 
NEWLIN 
OCM 
OPNLOC 
OSM 
OUTDS 
PCHR 
PNTDIG 
PRTEXT 
RES 
RTFINT 
SSM 
TMPC 
UNIT2 


8061  ACIAC 
E852 ARB 

F391  BADDR 
F5A8 BINAS 
F5AA  BINST 
E841 BRKSA 
FSCB CHANG 
E836 CKSM 

FO98 CVBIN 
Fi3C DEBTX 
F7 DERR 

F632 DIVID 
FOSF EDIT2 
F754 ERROR 
F29A EXESB 
FFF6 FIRQA 
F500 INCH 

FOA4  INPCH 
FØD JMPLC 
FZF2  LOAD1 
F71A LRM 

F726 MEMTS 
FÜAB NEWLN 
F3586  OKTXT 
ΕΕΣ OPNNX 
F4A4 οὗτος 
FSCE OUTD4 
FOBF  PCVAL 
F24C POPLI 
FO81  PRTRE 
FFFE RESTR 
F22C SBM 

F4BB STKIN 
E848  TMPF 
F2E8  UNITN 


AJA Pm 


j 0001 MTD 


EV 


.TITLE MTD 


, 


/ 
MAG TAPE DIAGNOSTIC 


AA CORPORATION / 


ην DUE NUDO IC πι μμ. 


2ᾳ0σο0-6σοροςο΄ .EMSC: 
06σ00΄056016 FRMSC: 
20001'036812- 


2902904^*'09090496 
90005'034016 
20026'231767 
92007'996017 
990010'016477 
990011^'020401 


3,QUFP 
3,@.DCOM 
1B2,3,S2R 
EMLPT 
3,UFP 
2, CHTTO,3 


CPU 
oti 


ADDR. OF EMSG ROUTINE . 


SAVE RETURN ADDRESS 
GET SWR 


IF(PRINT OUT TO CONSOLE) 


RESTORE FP 
THEN DO IT ! 


AA CORPORATION 


Pd 


2723 MTD 


9009012 0569012-EMLPT: LDA , ; GE V 
82 BITI 1B5,3,SNR ; IP(PRINT OUT TO IPT) 
05 €0015'e00406 JMP EMRET 
94 20016'234016 LDA 3,UFP ; RESTORE FP 
95 090217'031766 LDA 2,CHLPT,3 ; THEN DO IT ! 
m 96 00020'006017 .SYSTM 
9" 20221'016477 .WRS CPU 
98 220022'002401 JMP etl 
@9 £00235'0354916 EMRET: LDA 3,UFP ; RESTORE FP 
12 RETSR ; RETURN SUBROUTINE 


11 060021-200030'.80CT:  BNOCT | 


12 00030'056016 BNOCT: STA S,GUFP ; SAVE RETURN ADDRESS 

15 20031'034016 LDA 3,UFP ; RESTORE FP 

14 MOVAU 2,4 ; U4 = BINARY NUMBER | 

15 MOY AU 149 ; U5 = BUFFER ADDRESS | 

16 ANDI 7,0 ; MASK OFF 6TH BINARY DIGIT 

17 ADDI 62,9 ἡ CREATE 6TH ASCII DIGIT | 

18 00040 1052909 MOV 2,1 ; SAVE 6TH DIGIT | 

19 DIGIT ; GET STH DIGIT 

20 600052΄'101500 MOVS 2,0 ; PACK WITH 6TH DIGIT 

21 00055^'197000 ADD 2,1 

22 STAIU 14,2,5 ; STORE DIGIT PAIR IN BUFFER 

23 DIGIT ; GET 4TH DIGIT 

24 20967'105900 MOV 2,1 j SAVE 4TH DIGIT 

25 DIGIT ; GET 3RD DIGIT 

26 02101'121500 MOVS 2,2 s PACK WITH 4TH DIGIT | 

27 00102”107000 ADD 0,1 | 

28 STAIU 151,5 ; STORE DIGIT PAIR IN BUFFER 

29 DIGIT ; GET 2ND DIGIT | 

30 00116΄105000 MOY 2,1 ; SAVE 2ND DIGIT | 

31 DIGIT ; GET 1ST DIGIT | 
f 32 00150΄101500 MOVS 6.6 ; PACK WITH 2ND DIGIT | 

33 090151'1070900 ADD 2,1 | 

34 STAIU 1,8,5 ; STORE DIGIT PAIR IN BUFFER 

35 09154'0035400 JMP QUPC,3 ; RETURN SUBROUTINE 


Al A CORPORATION / 


i 20002-00901355'.MTIO: MTIO 


20135/256816 MTIO: 
20136'054403 
22137'1579000 
ϱ6140’005400 
20141'020142^IOTBI: 
£0142'000152* 
20143'000176* 
20144΄000212΄ 
20145'0020153* 
22146'002153* 
090147'000152* 
20158000155” 
008151080155” 
20152'062922 MTIO1: 
00155΄124400 MTIO2: 
90154'067022 
90155'1535128 MTIO3: 
00156΄151120 
90157'071122 
22169*'063622 
22161'00077" 
020162'260422 
00163'034016 MTIOS: 
00164'041775 
20165΄101102 
20166'0020404 

90167 “831482 
00172'151490 
€0171'051490 


02176°153128 MTIO6: 
90177'151122 
990220'071122 


€0205'060422 MTIO": 


90212'090775 
90211'090752 
20212'260422 MTIOB: 
00215΄000750 


STA 
LDA 
ADD 
JMP 
oti 
MTIO1 
MTIO6 
MTIO8 
ΜΤΙΟΖ 
MTIO2 
ΜΤΙΟΙ 
MTIOS 
MTIOS 
DOB 
NEG 
DOC 
ADDZL 
MOVZL 
DOAS 
SKPDN 
JMP 
DIA 
LDA 
STA 
MOVL 
JMP 
LDA 
INC 
STA 
RETSR 
ADDZL 
MOVZL 
DOAS 
DELAY 
DIA 
BITI 
JMP 
JMP 
DIA 
JMP 


"3 = 
mob 


> XE N N Z — =< 
-3 
m 


£,MTA 
5ΒΝ 0,978 
MTIO? 
MTIOS 
Ø,MTA 
MTI05 


o WO we WO SO we SO WE we WO SO we WO wewe 


we `. 


wo we WO we WO “ο 


we 


SAVE RETURN ADDRESS 

GET ADDR. OF I/O TABLE 
INDEX INTO TABLE WITH COMMAI 
DISPATCH TO FUNCTION 
ADDRESS OF I/0 TABLE 

READ 

REWIND 

READ STATUS 

SPACE FORWARD 

SPACE BACKWARD 

WRITE 

WRITE EOF 

ERASE 

LOAD MEMORY ADDRESS COUNTE 
NEGATE AND LOAD WORD COUNTS) 


| 
| 


| 


BUILD AND ISSUE COMMAND TO | 


WAIT FOR COMPLETION OF COMM) 


READ STATUS 
GET FRAME POINTER | 
RETURN STATUS TO CALLER | 
IF ERROR BIT SET 

THEN CO RETURN | 
UPC = UPC + 1 | 


RETURN TO CALLER 
BUILD AND ISSUE COMMAND 


WAIT FOR REWIND COMPLETE 


GO RETURN TO CALLER | 
READ STATUS 
GO RETURN TO CALLER 


Al CORPORATION / 


90025 MTD 


91 00 2005-PAT: . ; A 


02 00924-155555 PATI 

03 00005-125252 PAT2 | 

04 00206-052525 PATS | 

05 20907-002000 PAT4 

26 00010-177777 PAT5 | 

C7 00011-007713'.8UFF: BUFF ; ADDRESS OF 1/0 BUFFER 

08 MTD: ΟἹ 5,1090 ; INTIALIZE USER STACK | 

JS 00226'021367 LDA @,CHTTO,2 ; COPY CHANNEL FOR TTO | 

10 00227041767 STA @,CHTTO,3 | 

11 20232'021366 LDA 9,CHLPT,2 ; COPY CHANNEL FOR IPT | 

12 00231'041766 STA @,CHLPT,3 | 
| 13 00232'060277 INTDS ; DISABLE INTERRUPTS | 

14 02233'020232- LDA 9,-40 ; GET MAG TAPE PRIORITY MASK 

15 00234'024005 LDA 1,.CMSK ; GET RTOS CURRENT MASK | 

16 IOR 2,1 ; OR IN MAG TAPE MASK 

17 00241'044005 STA 1,.CMSK ; DISABE MAG TAPE INTERRUPTS | 

18 00242'060177 INTEN ; ENABLE INTERRUPTS | 

19 ESET ΝΊΟΟΡ ; SET NOT “LOOP ON ERROR” 

20 EMSC “MAG TAPE_ DIAGNOSTIC FOR. ‘SMART’  CONTROLI 

21 00310'102400 SUB 2,0 ; RESET PASS COUNT 

22 09311'241765 STA ®,PASCT,3 | 

23 00312'030012-MTDRS: LDA 2, .DCOM ; GET ADDRESS OF COMMON Hw 

24 090313'021004 LDA 0,4,2 ; GET # OF SUBTESTS 

25 28314100400 NEG 2,0 ; SET LOOP COUNT 

26 MOVAU 6,4 ; UAC4 = -DNTST | 

27 00316'021005 LDA 0,5,2 ; GET ADDR. OF SUBTEST ENTRY | 

28 MOVAU 0,5 ; UACS = DSENT | 

29 MTDLP: LDAIU 8,8,5 ; GET SUBTEST ENTRY POINT | 

38 00322'101103 MOVL  0,0,SNC ; IF(RUN FLAG IS RESET) | 

31 08323 200407 JMP MTDSK ; SKIP SUBTEST | 
Q 32 22324/181222 MOVZR Ο.Φ ; MASK OFF RUN FLAG | 

33 20325'040404 STA 0, MTDST ; SET UCALL ADDRESS | 
| 34 0€326'021767 LDA 2,CHTTO,3 ; GET CHANNEL FOR CONSOLE OUTI 

35 09327'225766 LDA 1,CHLPT,3 ; CET CHANNEL FOR LINE PRINTEI 
| 36 20330'09609023 JSR@  .CFRM ; UCALL SUBTEST 

37 06331'000000 MTDST: g ; UCALL ADDRESS 

38 MTDSK: UINC 5 ; INC TO NEXT SUBTEST 

39 UINC 4 ; INC LOOP COUNT 

40 003401510904 MOV 2,2,S2R ; RUN ALL SUBTESTS 

41 00341000757 JMP MTDLP | 

42 00342'021765 LDA Ø, PASCT,3 ; INC PASS COUNT | 

43 00343'101400 INC 9,0 | 

44 00344'041765 STA Q,PASCT,3 

45 00345'022012- LDA 9,0 .DCOM ; GET SWR 

46 BITI 1B4,0,SNR ; IF(.NOT. PRINT PASS COUNT) | 

47 00350'009742 JMP MTDRS ; THEN RESTART | 

48 EMSG “PASS COUNT =_ “,PASCT 

49 90404200706 JMP MTDRS ; RESTART DIAGNOSTIC | 


Al CORPORATION 


24 
25 
26 
97 
08 
g9 
19 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 


02410'006655' 
20411'000010 
00412'000414* 
020415'000424* 
300912-003405" 
00414΄000560΄ 
02415'001274* 
20416'001536* 
00417'00265"7* 
00420'003343" 
30421004576” 
200422'006021* 
00425΄006105 
02424'001070^ 
00425^001104^ 
02426'001122" 
00427'991146' 
0043220011767 
00451'001234" 
02432'001300" 
004335'001320 
004354'046117 
00442^053101 
900451^041125 
20463^044516 
00477'053522 
00516'241117 
00540^042517 
00550΄051105 
900000 


.DCOM: 
STENT: 


STNAM: 


NAMZ1 : 
ΝΑΜΦ2: 
NAMES : 
NAM04: 
NAM25: 
NAM26 : 
NAM2" : 
NAM28: 


DCOM 
ΜΤΡΟΙ 
MTD@2 
MTD2S 
MTD24 
MTD@S 
MTDOE 
MTD? 
MTD28 
NAM21*Z 
NAM02*2 
NAM03*2 
NAM2 4*2 
NAM25*2 
NAM26*2 
NAM07*2 
NAM08*2 
.TXT 
.TXT 
TXT 


TXT 
TXT 


; DNTST 


INTA 


EOF 


"69 we we WO we We WO we we 


“LOOP BACK<CR>’ 
“VALID STATUS<CR>’ 
^BUSY/DONE (ERASE)<CR>’ 


ADDRESS OF COMMON BLOCK 
LOOP BACK 

VALID STATUS 

BUSY/DONE 


WRITE PROTECT 
BOT/REWIND 


RELIABILITY 


“INTERRUPT ACKNOWLEDGE«CR» 
“WRITE PROTECT/ILLEGAL/READY<CR>’ 
^BOT/REWIND/SPACE BACKWARD/ILLEGAL<CR>’ 


“EOF/WRITE/READ<CR> 
“RELIABILITY<CR>’ 


5) | B CORPORATION 


| 
x 


2007 MTD 


C Ol 19000 .NOLOC δ | |. "7^5 
02 ; 
05 ; LOOP BACK TEST 
g4 ; 
25 USUBR MTDG1,2 ; ENTRY POINT, 2 TMPS 
Z6 09560'041767 STA @,CHTTO,3 ; SAVE CHANNELS 
2? 00561'045766 STA 1,CHLPT,3 
28 ESET  NLOOP ; SET NOT “LOOP ON ERROR’ 
09 EMSG “RUN. LOOP BACK TEST’ 
10 ; 
11 29612'060222 NIOC MTA ; CLEAR MAG TAPE 
12 00613'030035- LDA 2,-20 ; SET LOOP BACK MODE 
13 02614'071022 DOA 2,MTA 
14 02615'152400 SUB 2,2 ; WRITE ALL ZERO’S 
15 UCALL MISUB 
16 29622'152090 ADC EA ; WRITE ALL ONE” S 
17  UCALL M1SUB 
18 00623/152520 SUBZL 2,2 ; WRITE EACH BIT = ONE 
19 MiLOP: UCALL M1SUB 
20 20626΄151125 MOVZL 2,2,SNC 
21 00627'099775 JMP ΜΙΙΟΡ 
22 ; 
23 090630/022012- LDA 9,0.DCOM ; GET SWR 
24 BITI 157 ,0,SNR ; IF(.NOT. PRINT PASS) 
25 00633'0090430 JMP MIRET ; THEN RETURN 
26 EMSG "PASS LOOP_ BACK_ TEST’ 
27 MIRET: URET 
28 ; 
29 ; LOOP BACK SUBROUTINE 
30 ; 
31 177765 SDAT=  CHLPT-1 ; DATA SENT 

@ ° 177764 RDAT= — SDAT-1 ; DATA RECEIVED 
33 ; 
34 USUBR M1SUB,4 ; ENTRY POINT, 4 TMPS 
35 30665041767 STA ®,CHTTO,3 ; SAVE CHANNELS 
36 90666045766 STA 1,CHLPT,3 
3? 02667'051765 STA 2,SDAT,3 ; SAVE SEND DATA 
38 ESET LOOP ; SET “LOOP ON ERROR’ 
39 ; 
40 020672'031765 MISLP: LDA 2,SDAT,3 ; RESTORE SEND DATA 
41 92673072022 DOB 2,MTA ; SEND ON DOB 
42 00674'073022 Doc 2,MTA ; SEND ON DOC 
43 DELAY ; 
44 00701'061422 DIB Q,MTA ; RECEIVE ON DIB 
45 00702'112415 SNE 9,2 ; IF MATCH 
46 20703'000572 JMP M1SC ; THEN GO RECEIVE DIC 
47 00704/041764 STA @,RDAT,3 ; PUT RECEIVE DATA ON STACK 
48 EMSG "DATA SENT ΟΝ DOB_ s ^',SDAT 
49 EMSG “DATA RECEIVED ON ^DIB =_ “,RDAT 
50 ELOOP M1SLP 
61 EHALT 
52 022000 
53 001075'HR$02C- . 
54 
55 01875'031765 MiSC: LDA 2,SDAT,3 ; RESTORE SEND DATA 
56 1076062422 DIC @,MTA ; RECEIVE ON DIC 
57 01077'112415 SNE 9,2 ; IF MATCH 
58 901100'000572 JMP MISRT ; THEN GO RETURN 
59 .EJEC 


f | Ei CORPORATION / 


901 011901 241764 


2900920 
@21272°HRSO2V= 
M1SRT: 


177765 


91274'041767 
201275'245"766 


01350'9060222 


3, 
21333'0690422 M2LOP: 
91334^924941- 
01335'124000 
01336'123400 


01357'024042- 
21344125025 


91545'000531 
01546΄041765 


2009990 
2914"76'RR$03E- 


; 
M2VAL: 
91500'022012- 


91503'090431 
M2RET : 


"9 we we 


1536841767 
1537 “845766 


; 
91576'060222 M3IP1: 


01577'063622 
01600'000526 


2000260 
0901726'HR5047- 


f 2008 MTD 
STA @,RDAT,3 ; PUT RECEIVE DATA ON STACK ` 


EMSG “DATA SENT ΟΝ DOC =  ',SDAT 

EMSG “DATA RECEIVED ΟΝ DIC - “,RDAT 
ELOOP M1SLP 

EHALT 

URET ; RETURN 

STATUS TEST 

CHLPT-1 ; INVALID STATUS 

USUBR MTD02,3 ; ENTRY POINT, 3 TMPS 
STA @,CHTTO,3 3; SAVE CHANNELS 

STA 1,CHLPT,3 

ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
EMSG “RUN VALID STATUS TEST’ 

NIOC MTA ; CLEAR MAG TAPE 

ESET LOOP ; SET “LOOP ON ERROR’ 
DIA @,MTA ; READ STATUS | κ 
LDA 1,=SBOT ; BOT FLAG IS A "DON'T CARE 
COM 1,1 

AND 1,2 

LDA 1,=4101 ; GET VALID STATUS 

XOR 9,1 ; TURN OFF ALL THE BITS 
MOY 1,1,SNR ; IF(VALID STATUS) 

JMP M2VAL ; THEN GO RETURN 

STA @,STAT,3 ; PUT STATUS ON STACK 
EMSG “INVALID. STATUS =_ “,STAT 

ELOOP M2LOP 

FHALT 

ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
LDA @,@.DCOM ; GET SWR 

BITI 1B7,0,SNR ; IF(.NOT. PRINT PASS) 
JMP M2RET ; THEN RETURN 

EMSG “PASS. VALID_ STATUS TEST’ 

URET 


USUBR 
STA 
STA 
ESET 
EMSG 
ESET 


NIOC 
SKPDN 
JMP 
EMSG 
ELOOP 
EHALT 


° 


. EJEC 


BUSY/DONE (ERASE) TEST 


MTD?3,2 


@,CHTTO,3 
1,CHLPT,3 


NLOOP 


^RUN BUSY/DONE_ 


LOOP 


MTA 
MTA 
ΜΘ Β1 


^NIOC DID NOT. 


MSLP1 


; ENTRY POINT, 2 TMPS 
+ SAVE CHANNELS 


; SET NOT “LOOP ON ERROR’ 
(ERASE)_ TEST’ 
; SET “LOOP ON ERROR’ 


; CLEAR MAG TAPE 
; IF(DONE = ZERO) 

; THEN GO TEST BUSY 
CLEAR_ DONE_ FLAG’ 


ATA 


CORPORATION / 


9009 MTD 


^ — 91 01726'063422 M3B1: SKPEBN MTA — 3; IF(BUSY = ZERO) ` 
02 01727'000526 JMP M3LP2 ; THEN GO START MTA AND TEST 
03 EMSG ^NIOC DID NOT CLEAR BUSY FLAG’ 
04 ELOOP M3LP1 
05 EHALT 
26 0200020 
97 092055'HR$04K- . 
28 ; 
@9 02055'026025-MSLP2: LDA @ ,=MTERS ; GET ERASE COMMAND 
10 02056'103120 ADDZL 9,0 ; BUILD AND ISSUE COMMAND 
11 22057'191120 MOVZL 2,0 
12 02060'961122 DOAS @,MTA 
13 32061263522 SKPBZ MTA ; IF(BUSY = NONZERO) 
14 02062'000525 JMP M3D1 ; GO TEST DONE = ZERO 
15 EMSG ^DOAS DID NOT SET BUSY FLAG’ 
16 ELOOP M3LP2 
17 EEALT 
18 000090 
19 092207'HR$04X- . 
20 ; 
21 02207'063622 M3D1: SKPDN MTA ; IF(DONE - ZERO) 
22 02210΄600521 JMP M3WAT ; THEN GO WAIT FOR 2 SEC 
23 EMSG ^DOAS SET DONE FLAG’ 
24 ELOOP M3LP2 
25 EHALT 
26 200000 
27 002331'HR$05A- . 
28 ; 
29 02331/024043-M3WAT: LDA 1,-2000. ; GET 2 SEC COUNT 
50 02332'006017 .SYSTM ; DELAY 2 SEC 
31 02333'010400 .DELAY 
@ 32 223347263077 HALT ; ERROR RETURN 
33 9233563422 SKPBN MTA ; IF(BUSY = ZERO) 
34 023356'0005231 JMP M3D2 ; GO TEST DONE = NONZERO 
35 EMSG “ERASE. COMPLETE DID NOT CLEAR BUSY’ 
36 ELOOP M3LP2 
37 FHALT 
38 090000 
39 0€2467'BR$05N- . 
40 02467'063722 M3D2:  SKPDZ MTA ; IF(DONE = NONZERO) 
41 02470 000530 JMP M3PAS ; THEN PASS TEST 
42 EMSG ^ERASE COMPLETE DID NOT SET DONE’ 
43 ELOOP M3LP2 
44 EHALT 
45 ϱοοσσο 
46 002620'HR$060- . 
47 ; 
48 M3PAS: ESET ΝΊΟΟΡ ; SET NOT “LOOP ON ERROR” 
49 02622'022012- LDA 0,8. DCOM ; GET SWR 
50 BITI 1B7,0,SNR ; IF(.NOT. PRINT PASS) 
51 02625'000430 JMP MSRET ; TEEN RETURN 
52 EMSG "PASS  BUSY/DONE TEST’ 
53 M3RET: URET 
54 .EJEC 


Al CORPORATION 


| 


INTERRUPT ACKNOWLEDGE TEST 


3 
; 
; 
D 


7 


94 177765 DEVCD= CHLPT-1 ; DEVICE CODE 
05 .EXTN „INTP > RTOS INTERRUPT SERVICE ADD 
06 ; 

e 07 USUBR MTD04,3 ; ENTRY POINT, 3 TMPS 
08 02657'041767 STA Ø, CHTTO,3 ; SAVE CHANNELS 
09 02660'045766 STA 1,CHLPT,3 
12 ESET NLOOP ; SET NOT “LOOP ON ERROR’ 
11 EMSG “RUN. INTERRUPT ACKNOWLEDGE TEST’ 
12 82717260277 INTDS ^; DISABLE INTERRUPTS | 
13 02720'062677 IORST ; I/O RESET | 
14 02721'0209022- LDA 9,242 ; GET MAC TAPE PRIORITY MASK 
15 02722'9024005 LDA 1,.CMSK ; GET RTOS CURRENT MASK 
16 XOR 0,1 ; OR OUT MAG TAPE MASK 
17 02727'066077 MSKO 1 ; ENABLE MAG TAPE INTERRUPTS 
18 02730°004407 JSR M4SUB ; START MTA AND RTC 
19 62731°930431 LDA 2,M4IS1 ; GET ADDRESS OF INT. SRV. 
20 027327950001 STA 2,1,0 ; SET INTERRUPT VECTOR 
21 02733'060177 INTEN ; ENABLE INTERRUPTS | 
22 Q2734 000400 JMP ? ; WAIT FOR INTERRUPT 
23 02735'002401 JMPG ES : GO MASK OUT MTA AND TRY AG 
24 02736'003172^ MAMSK 
25 
26 M4SUB: SAVE ; SAVE MACHINE STATE 
27 02744'030025- LDA 2,=MTERS ; BUILD AND ISSUE ERASE cont 
28 02745°153120 ADDZL 2,2 | 
29 827467151120 MOVZL 2,2 | 
30 02747'071122 DOAS 2,MTA | 
31 02750'063622 SKPDN MTA ; WAIT FOR COMPLETION OF ERA 
32 02751'090777 JMP - 
33 02752'060114 NIOS RTC ; START RTC 
34 02753'063614 SKPDN RTC ; WAIT FOR FIRST TICK 
35 02754'000777 JMP .-1 
36 02755'060114 NIOS RTC ; RESTART CLOCK 
37 RETSR ; RETURN SUBROUTINE 
38 
39 O2762°@O2763’°M4IS1: .+1 ; ADDRESS OF INTERRUPT SERVIC 
40 02763'030506 LDA 2,M4RIV > RESTORE RTOS INTERRUPT VECT 
41 02764'9050901 STA 2,1,0 
42 92765'01000€ 157 e, ; INC. INTERRUPT P.C. 
43 02766'061477 INTA Q ; INTERRUPT ACKOWLEDCE | 
44 02767'962677 IORST ; 1/0 RESET 
45 CMPI MTA,O,SNR ; IF(MTA CAUSED INTERRUPT) 
46 02772'002000 JMPQ 0,0 ; THEN SUCCESS, RETURN FROM 
47 CMPI RTC,O,SZR ; IF(RTC CAUSED INTERRUPT) 
48 02775'000475 JMP M4ER1 
49 02776”060177 INTEN ; THEN FAILURE, ENABLE INTERHI 
50 EMSG “MAG. TAPE DID NOT GENERATE INTERRUPT’ 
51 FHALT 
52 000000 
53 003670^HR$O06M- . 
54 03079'000500 JMP M4RT1 ; GO RETURN FROM SUBROUTINE 
5 . EJEC 


Al CORPORATION / 


2011 MTD 
3871 


77777 MARIV: 


93872°O060177 M4ER1: 
93073 “041765 


2900900 
903172 BR$96S- 
95172'000551 M4RT1: 


@3171°@02737° .M4SB: 
03172'030032-M4MSK: 
03175'072077 
€3174'006775 
03175'030405 
23176'050001 
03177 “660177 
03202'002400 
23201'0004"73 


035202'0035205'M4AIS2: 
05205΄050666 
235204'050001 
%3205° 018022 
93206 “961477 
93207906267" 


03212'0929009 
93213'0601"77 


900920 
9035275'HR$262- 
93273'000446 


903274'060114 M4PAS: 
93275'06017" 


03300'022012- 
03303'0004356 
M4RET : 


. INTP 


INTEN 
STA 
EMS G 
EHALT 


JMP 


M4SUB 
LDA 
MSKO 
JS RG 
LDA 
STA 
INTEN 
JMP 
JMP 


.*1 
LDA 
STA 
157 
INTA 
IORST 
CMPI 
JMPG 
INTEN 
EMSG 
EHALT 


JMP 


NIOS 
INTEN 
ESET 
LDA 
BITI 
JMP 
EMSG 
URET 
.EJEC 


Ø, DEVCD,3 : 
"WRONG ἼΝΤΑ". 


, 
“MASK Οὔτ  FAILUR 


M4RET 
RTC 


NLOOP 
9,6 .DCOM 


1B7,2,SNR 


M4RET 


"PASS INTERRUPT_ 


e. 
3 


DEVICE CODE =_ 


we 


we we We we WO We we 


€ We "99 we WO we 


we 


we 99 99 we We we 


RTOS IN 


ELSE, FAILURE, ENABLE INTERI 
PUT DEVICE CODE ON STACK 
* ,DEVCD | 


GO RETURN FROM SUBROUTINE | 
| 
| 


MASK OUT MAG TAPE 


START MTA AND RTC 
GET ADDRESS OF INTERRUPT SB] 
SET INTERRUPT VECTOR 

ENABLE INTERRUPTS 
WAIT FOR INTERRUPT 
GO REPORT PASS 


ADDRESS OF INT. SRV. 
RESTORE RTOS INTERRUPT VECH 


INC. INTERRUPT P.C. 
INTERRUPT ACKOWLEDGE 
I/O RESET 

IF(MTA DID NOT CAUSE INTERRI 
THEN SUCCESS, RETURN FROM IM 
ELSE, FAILURE, ENABLE INTERI 
E^ 


GO RETURN FROM SUBROUTINE 


START RTC 

ENABLE INTERRUPTS 

SET NOT “LOOP ON ERROR’ 
GET SWR 

IF(.NOT. PRINT PASS) 
TEEN RETURN 
ACKNOWLEDGE TEST 


9012 MTD 
61 


ος 
@3 
24 
£5 
26 
07 
28 
29 
19 
11 


, 
177775 MSTAT= 
; 


23343 °641767 
@3344°045766 


03437 7060422 
059440΄101212 
05441΄ 000776 
05442’ 024045- 
93443'0906017 
3344401042 
%3445° 063077 


93503 °060422 
93504 °101213 
05505΄000776 


; 
05510΄000477 
0200900 
903607^HR$97L- 
, 
MSWR: 
95617'000477 
990000 
29035716'HR$907$- 
; 
M5WR1: 
03720 200500 


200000 
304020 HR$071Z= 


UACO 


USUBR 
STA 
STA 
FSET 
EMSG 


EMSG 
DIA 
MOVR# 
JMP 


LDA 
.SYSTM 
.DELAY 
HALT 


EMSG 
DIA 
MOVR# 
JMP 


BITI 
JMP 
EMSG 
EHALT 


} 
; WRITE PROTECT/ ILLEGAL/ READY TEST 


; MAG TAPE STATUS ON THE STA 


MTD25,2 ἡ ENTRY POINT, 2 TMPS 
@,GHTTO,3 j SAVE CHANNELS 

1,CHLPT,3 

NLOOP ; SET NOT “LOOP ON ERROR’ 


^RUN WRITE_ PROTECT/_ ILLEGAL/_ READY_ TEST 
^REMOVE TAPE_ CARTRIDGE’ 


ο ΜΑ 
0,0,82C ; WAIT FOR “UNIT READY’ TO G 
E 
| 
51000. ; DELAY 1 SECOND | 
| 
‘WRITE PROTECT TAPE AND RE-INSERT’ 
O,MTA 
0,0,SNC ; WAIT FOR “UNIT READY’ TO GO 
72 | 
SLOCK,Ø,SZR ; TEST “WRITE PROTECT’ HIGH | 
MSWR ; PASS, GO WRITE AND TEST 


‘TAPE. DID NOT BECOME PROTECTED: °,MSTAT 


MTWR, BUFF ,4096. 
M5WR1 ; ERROR, RETURN 
"WRITE DID NOT SET "ERROR" FLAG: °,MST 


| 


SILGL,2,S2R ; TEST "ILLEGAL" FLAG HIGH 
"WRITE DID NOT SET "ILLEGAL" FLAG: ^ 


| 
M5WR2 ; PASS | 
mS 


a | E CORPORATION , 


M5WR2: 
94024 °O00477 


020000 
204123'HR$086- 


’ 
ΜΌΝΑΣ: 
04125^'000500 


0209900 
094225'HR$08D- 


, 
MSER: 
04231'€00477 


g20902 
004330' HR$08K- 


, 
M5ER1: 
04532 000500 


@@00 00 
9004432'HR$98R- 


3 
MSPAS: 
904462'062422 
904463'101212 
94464 °909776 


04522 ° 060422 
94523°101213 
34524000776 


P 
04527'022912- 
@4532° 000442 

M5RET: 


MTWRE 
M5WR3 


ΝΑΞΟΣ DID NOT. 


91161. 0.528 
MSER 


"WREOF DID NOT. 


MTERS 
MSER1 


^ERASE DID NOT. 


SILGL,2,SZR 
MSPAS 


PASS | . 
“BRASE DID NOT SET "ILLEGAL" FLAG: ',M 


“REMOVE  TAPE CARTRIDGE" 


9,MTA 
£,0,S2C 


.-2 
"WRITE ENABLE. 
Q,MTA 

9,0,SNC 


NLOOP 
9,0.DCOM 
1B7,9,SNR 
MSRET 


9 
, 
° 
, 


ο 
, 
° 
, 


° 
3 
9 
, 


, 


TAPE AND  RE-INSERT’ 


. 

’ 
. 
L] 
. 
, 
° 


WRITE EOF 
ERROR, RETURN 
SET "ERROR" FLAG: ΄ ΜΙΝΙ 


TEST "ILLECAL" FLAG HIGH 
PASS | " 
SET “ILLEGAL”  FLAG:, ^,MS/ 


ERASE 
ERROR, RETURN 


SET "ERROR" FLAG:  ^,MSTA' 


1 


TEST "ILLEGAL" FLAG HIGH | 


WAIT FOR “UNIT READY’ TO G 


WAIT FOR “UNIT READY’ TO G 


d o l1 o s ss 


SET NOT “LOOP ON ERROR’ 


THEN RETURN 


“PASS. WRITE PROTECT/_ ILLEGAL/_ READY TES 


GET SWR 
IF(.NOT. PRINT PASS) ! 
| 


Εἰ | E CORPORATION / 


^ 


94576'04176"7 
9457" “045766 


04676'260422 
04677121212 
@4700@ "000776 
04701” 024045—- 
247902'006017 
04703'010400 
04704” 063077 


04742 “060422 
@47437”101213 
904744'099776 


04745'030053- 
04746'159400 


M6LOP: 
94754'0630977 


24760'151004 
04761'099767 


04764'000477 


200990 


BOT/ REWIND/ SPACE BACKWARD/ ILLEGAL TEST 


USUBR 
STA 
STA 
ESET 
EMSG 


EMSG 
DIA 

MO VR# 
JMP 
LDA 
J.SYSTM 
.DELAY 
HALT 
EMSG 
DIA 
MOVR# 
JMP 


LDA 
NEG 
MOVAU 
MTDIO 
HALT 
UINC 
MOY 
JMP 


BITI 
JMP 
EMSG 
EHALT 


005063'HR$99M- . 


, 
MeTRW:  BITI 


05065'000503 


209090 


2051"70'HR$09T- . 


25209'0690422 
@5203° 000586 


200000 


, 
05170'220037-M6RW: LDA 
g5171'105120 
05172'101129 
05173'261122 


9053511'HR$0A1- . 


MTD26,2 


@,CHTTO,3 
1,CHLPT,3 


NLOOP 


° 
, 
. 
, 


, 


ENTRY POINT, 2 TMPS 
SAVE CHANNELS 


SET NOT “LOOP ON ERROR’ 


^RUN BOT/_ REWIND/ SPACE BACKWARD/_ ILLEG 


“REMOVE TAPE CARTRIDGE’ 


@,MTA 


@,MTA 


SBOT,@,SNR 


ME TRW 


“ERASE. DID NOT. 


SRW,O,SNR 


M6RW 


““REWINDING FLAG 15 SET BEFORE COMMAND: 


SRW,@,SZR 


M6WT 


^REWIND COMMAND_ 


9 


3 


WAIT FOR “UNIT READY’ TO C 
DELAY FOR 1 SECOND 


TAPE AND  RE-INSERT' 


we 


we we ο9 ου we 


° 
3 
° 
, 


we we 


we WO we we 


WAIT FOR “UNIT READY’ TO G 


SET LOOP COUNT | 


USE U4 
ERASE TO MOVE OFF BOT | 
ERROR RETURN | 
INC LOOP COUNT | 
LOOP UNTIL DONE 


TEST “BOT” FLAG LOW " 
PASS, GO TEST "REWINDING 
RESET "BOT" FLAG: ως 


TEST "REWINDING" FLAC LOW 
PASS, GO REWIND 


GET REWIND COMMAND 
BUILD AND ISSUE COMMAND 


WAIT FOR “SMART” CONTROLLE 
GET MAG TAPE STATUS 

TEST "REVINDINC" FLAG HIGH 
PASS, GO WAIT FOR COMPLETIO! 
DID NOT, SET  "REWINDING 


A | A CORPORATION , 


2015 MTD 


91 
22 
935 
94 
25 
66 
07 
08 
09 
19 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
38 
31 
$2 
33 
34 
oo 
56 
37 
38 
39 
40 
41 


f 
05311'024045—-M6WT: 


95312° 806017 
$5313 °O10490 
05314°863077 
95315 “860422 


95320 000505 


29090299 
025425” 


05427” 008581 


£00000 
305538” 


35540000581 


20099009 
005641” 


05643'000502 


900090 
205745” 


25747022012- 
95752° 000445 


HR$ŠQA8= 
, 
M6TBT : 


HR$2AF- 
; 
M6SBW: 


ERSOAM= 
} 
M6ER1: 


HRS@AT= 
; 
M6PAS: 


MERET : 


1,722090. ; DELAY 2 SECONDS 


Q,MTAÀ ; GET MAG TAPE STATUS 
SRW,@,SNR ; TEST "REWINDING" FLAG LOW 
M6TBT ; PASS, GO TEST "BOT 


^REWIND DONE DID NOT CLEAR "REWINDING" | 


SB0T,O,SZR ; TEST "BOT" FLAG HIGH 
M6S BW ; PASS, GO SPACE BACKWARD 
“REWIND. DONE DID NOT SET "ποτ" FLAG: 


' 


MTSBW,.BUFF,1 SPACE BACKWARD 1 RECORD | 
M6 ER1 ERROR RETURN r 


“SPACE BW DID NOT SET "ERROR" FLAG: ^, 


5116165 8 ; TEST "ILLEGAL" FLAG HIGH 
M6PAS ; PASS 


“SPACE BW DID NOT SET "ILLECAL" FLAG: 


NLOOP ; SET NOT “LOOP ON ERROR^ | 
2,@.DCOM ; GET SWR 

187.0 ,SNR ; IF(.NOT. PRINT PASS) | 
MGRET ; THEN RETURN 


“PASS.  BOT/ REWIND/ SPACE  BACKWARD/_ 


nina 
| 
x 


Εἰ A CORPORATION , 


"d 


96021'041767 
06022'045766 


; 
26052'022012- 
96055'000424 


M7RET: 


USUBR 
STA 
STA 
ESET 
EMSG 


ESET 
LDA 
BITI 
JMP 
EMSG 
URET 
. EJEC 


MT DOT ,2 
9,CHTTO,3 
1,CHLPT,3 

NLOOP 

“RUN. TEST δη’ 


NLOOP 

9,8 .DCOM 
187,0,SNR 

M?RET 

‘PASS TEST 67° 


ENTRY POINT, 2 TMPS 
SAVE CHANNELS 


SET NOT “LOOP ON ERROR’ 


SET NOT “LOOP ON ERROR’ 
GET SWR 

IF(.NOT. PRINT PASS) 
THEN RETURN 


9017 MTD 
21 


22 
65 
£4 
65 
26 
ο 
28 
69 
10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
gt 
28 
29 
50 
51 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
45 
44 
45 
46 
47 
48 
49 
50 
51 
52 
55 
54 
55 
56 
57 
58 
59 
60 


; RELIABILITY TEST 


3 
177765 FILCT- 


CHLPT-1 
9000009 EFILE- g 
90902091 ERTRY- 1 
9009002 EPAT- 2 
900005 ESTAT= 3 
.ZREL 
813-0009 NREC: g 
00014-000000 NWERP: Ø 
20015-200000 NWERF: 2 
009016-2009000 NRERP: Ø 
909017-0009000 NRERF: Q 
90020-0067 0" “SBGN: SBUFB 
29021-00779? SEND: SBUFE 
90022-000009 SPNT: 2 
.NREL 
USUBR 
26103'041767 STA 
26104'045"766 STA 
ESET 
EMSG 
MTDIO 
06142΄065077 HALT 
061435'02176" LDA 
06144'030920- LDA 
96145'050022- STA 
06146΄152400 SUB 
06147΄050015- STA 
96150'050014- STA 
06151'2590915- STA 
66152΄θ56θ16- STA 
96153'050017- STA 
06154^951"765 STA 
MBLOP: UCALL 
MTDIO 
06167 “000401 NOP 
BITI 
26172'000412 JMP 
MTDIO 
96203 009401 NOP 
96204°021767 MSRDP: LDA 
96205'9031765 LDA 
UCALL 
26210'151400 INC 
26211'051765 STA 
66212΄ 200743 JMP 
, 
y NO PATH 
ESET 
06215'022012- LDA 
BITI 
@6220” 000431 JMP 
EMS G 
M8RET: URET 
. EJ EC 


MTDO8 ,3 
@,CHTTO,S 
1,CHLPT,3 
NLOOP 


^RUN RELIABILITY. 


MTRW 


%,CHTTO,3 
2,SBGN 
2,SPNT 
2,2 
2,NREC 
2,NWERP 
2,NWERF 
2,NRERP 
2, NRERF 
2,FILCT,3 


WRPAT 
MTSBW,.BUFF, 


SBOT,@,SZR 
M8RDP 
MISFW,.BUFF,1 


®,CHTTO,3 
2,FILCT,3 
RDPAT 

2,2 
2,FILCT,3 
MBLOP 


NLOOP 

Ø, Q. DCOM 
187,0,S NR 
M8RET 


Ὁ 9 we we we we we ws 


. 
, 
. 
, 
° 
, 


. 


We we We We wo wo we 


o We we We WO we We we we “69 we 


ο wo We we 


FILE COUNT (1ST WORD OF FA 
ERROR SUMMARY FILE # 

ERROR SUMMARY RETRIES 
ERROR SUMMARY PATTERN 
ERROR SUMMARY STATUS 


TOTAL # OF RECORDS 

# OF WRITE ERRORS WITH PAS 
# OF WRITE ERRORS WITH FAI 
# OF READ ERRORS WITH PAS 
# OF READ ERRORS WITH FAI 
BEGINNING OF SUMMARY BUFFE 
END OF SUMMARY BUFFER 
POINTER INTO SUMMARY BUFFE 


ENTRY POINT, 3 TMPS | 
SAVE CHANNELS 


| 

| 

SET NOT “LOOP ON ERROR’ | 

TEST’ | 

REWIND MAG TAPE | 

ERROR RETURN 

RESTORE CHANNEL 

SET ERROR SUMMARY POINTER | 

| 


RESET ERROR COUNTS 

# OF RECORDS 

# OF WRITE ERRORS (PASS) 
# OF WRITE ERRORS (FAIL) 
# OF READ ERRORS (PASS) 
# OF READ ERRORS (FAIL) 
FILE COUNT = Ø 


WRITE PATTERN FILE | 
SPACE BACKWARD 1 FILE 

ERROR RETURN | 
IF (BOT ) | 
THEN GO READ PATTERN FILE 
ELSE SPACE FORWARD 1 RECOR 
ERROR RETURN | 
RESTORE CHANNEL | 
RESTORE FILE COUNT | 
READ PATTERN FILE 

INC. FILE COUNT 


CONTINUOUS LOOP 


SET NOT “LOOP ON ERROR’ 
GET SWR 

IF(.NOT. PRINT PASS) 
THEN RETURN 


“PASS RELIABILITY TEST’ 


ATA CORPORATION. 


οι 
22 
@3 
294 
95 
26 
ο” 
28 
69 
10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
20 
31 
32 
55 
34 
35 
36 
37 
38 
69 
40 
41 
42 
45 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 


] 
; SUBROUTINE TO WRITE PATTERN FILE 


, 
177764 CPAT= 
177763 ERRCT= 


96253 °841767 
06254 °245766 
66255΄051765 
66256΄102520 
06257'041764 


96262'030003-WRPLP : 
06261'021764 
δ6262΄115000 

06263 °021080 
26264'9030911- 
26265'025765 
26266'045000 
06267'024955- 
26270'151400 WRPFL: 
26271΄ 041000 
@6272°125404 

26273 °080775 


WRP: 
063094 000402 
26305”000513 
26306'0109014-— 
$6307 °152400 
06318 °851763 


WRTRY: 
06321°863977 


06552΄ 006402 
26555’ 000455 
g6354'031"763 
063355^1510924 
06336 ° 802407 
06337” 030022- 
36340041003 
86341021765 
06342'041000 
906343'2921764 
06344^941092 
26345'011"763 WRP1: 
06546΄025765 
06347'030912 
96358°132432 
06351 “880748 


36352 °814014- 
06353 °800401 
96354 °010015— 
06355“ 039922- 
96356 “821763 
@6357 “1200490 
96360 041001 


FILCT-1 
CPAT-1 


USUBR 
STA 
STA 
STA 
SUBZL 
STA 


LDA 
LDA 
ADD 
LDA 
LDA 
LDA 
STA 
LDA 
INC 
STA 
INC 
JMP 


MTDIO 
JMP 
JMP 
152 
SUB 
STA 


MTDIO 
HALT 
MTDIO 
JMP 
JMP 
LDA 
MOY 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 
ISZ 
LDA 
LDA 
USGT 
JMP 


DSZ 
JMP 
157 
LDA 
LDA 
NEG 
STA 


WRPAT,5 ; 
0@,CHTTO,3 j 
1,CHLPT,3S 
2,FILCT,S ; 
6,6 ; 
,CPAT,3 


2,.BUFF 

1,FILCT,3 

1,0,2 
-RECSZ*41 


Q 
1* 

Q 
*- 

lov) 


1,2 
2,2 
0,8,2 
1,1,SZR 
WRPFL 


MTWR,.BUFF,RECSZ 
e+ Z 

WRPSC 

NWERP 

2,2 

Z,ERRCT,3 


<. We wo we 


MTSBW,.BUFF,1 j 


, 
MTWR,.BUFF,RECSZ 
.+2 
WRPUD 
2,ERRCT,3 
2,2,S2R 
WRP1 
2,SPNT 
9,ESTAT,2 
2,FILCT,3 
Q,EFILE,2 
9,CPAT,3 
9,EPAT,2 
ERRCT,3 
1,ERRCT,3 
2,NRTRY 
1.2 
WRTRY 


we... we 


-- 


“ee ee we 


NWERP 

+1 

NWERF 
2,SPNT 
@,ERRCT,3 
£,0 

9 ,ERTRY,2 


"- "9 we we 9*9 we 


CURRENT PATTERN (1-5) 
ERROR COUNT 


ENTRY POINT, 5 TMPS x 
SAVE CHANNELS | 
SAVE FILE COUNT | 
CPAT = 1 | 
GET ADDRESS OF PATTERN TABLI 
GET CURRENT PATTERN 4 

INDEX INTO TABLE | 
GET PATTERN | 
CET ADDRESS OF BUFFER | 


SET HEADER WORD IN BUFFER 
SET LOOP COUNT | 
FILL BUFFER WITH PATTERN 


ERROR RETURN | 

SUCCESS RETURN 

INC # OF ERROR WITH PASS | 

ERROR COUNT = @ | 
| 


SPACE BACKWARD 1 RECORD 
ERROR RETURN 


ERROR RETURN 
SUCCESS RETURN 
IF ERROR COUNT = @ 


| 
| 
| 
| 
THEN UPDATE ERROR SUMMARY DA 
| 


INC ERROR COUNT 
GET ERROR COUNT 
IF(ERRCT .LE. NRTRY) 


THEN LOOP 


DEC # OF WRITE FRRORS WITH P 
JUST IN CASE 

INC # OF WRITE ERRORS WITH F 
GET POINTER INTO SUMMARY BUF 
UPDATE # OF RETRIES 

SPECIFY WRITE 


AIA CORPORATION , 


9019 MTD 


d σι 06361" ”020021- LDA ð, SEND κ ; IF(SPNT .LT. SEND) = — 
02 06362/142437 USLT 2,0 
23 Q6363'000404 JMP WRPBE 
24 ADDI 4,2 ; THEN SPNT = SPNT + 4 
95 06366'2050022- STA 2,SPNT 
26 WRPBE: MTDIO MTSBW,.BUFF,1  ; SPACE BACKWARD 1 RECORD 
07 06377'063977 HALT ; ERROR RETURN 
68 MTDIO MTERS ; FRASE BAD TAPE 
£9 06404'06307" HALT 
180 06405'0090667 JMP WRP ; TRY AGAIN | 
11 
12 06406'030022-WRPUD: LDA 2,SPNT ; GET POINTER INTO SUMMARY ath 
13 06497 °921763 LDA @,ERRCT,3 ; UPDATE # OF RETRIES 
14 06419°190400 NEG 2,9 ; SPECIFY WRITE 
15 66411'041001 STA Ø ERTRI,2 | 
16 06412'0290021- LDA Ø, SEND ; IF(SPNT .LT. SEND) | 
17 @6413°142437 USLT 2,0 
18 26414000404 JMP WRPSC 
19 ADDI 4,2 ; THEN SPNT = SPNT + 4 
20 06417'0509022- STA 2,SPNT 
21 
22 06420 ”010013-WRPSC: ISZ NREC ; INC. # OF RECORDS 
23 06421'011764 152 CPAT,3 ; INC. CURRENT PATTERN 4 
24 Q6422'021764 LDA @,CPAT,3 
25 06425'024051- LDA 1,-NPAT ; IF(CPAT .LE. NPAT) 
26 06424'106432 USCT 2,1 | 
27 06425'000633 JMP WRPLP ; THEN LOOP 
28 
29 MTDIO MTWRE ; WRITE EOF 
30 296432'000401 NOP 
31 MTDIO MTWRE ; WRITE EOF 
32 06437'900401 NOP 
33 MTDIO MTSBW,.BUFF,@  ; SPACE BACKWARD 1 EOF 
34 06450 000401 NOP 
| 35 MTDIO  MTSBW,.BUFF,O  ; SPACE BACKWARD ANOTHER EOF 
| 36 06461'000401 NOP | 
37 URET ; RETURN 
38 .EJEC 


Al H CORPORATION. 


J 


we? we 


6464 °941767 
96465 “945766 
26466 °951765 
26467 102520 
06470 °O41764 


RDPLP : 
@6501 000402 
@65@2 “000462 
26503'010216- 
06504^152400 
96595*'051"763 


RDTRY : 
26516 “063077 


06527 “080402 
26530000423 
26531/031763 
06532^151904 
26533 000407 
06554΄030022- 
26535'941003 
26536 “821765 
06537 “041080 
06540'021764 
26541^'041092 
06542“”011763 RDP1: 
06543'025763 
%6544° 930012 
96545 °132432 
26546 “988740 
96547'014016- 
06558 000491 
06551Ι΄010017- 
06552’ 000440 


965535^"2350022-RDPUD: 
66554΄Φ21765 

06555 “041001 
96556'020021- 
26557'142437 

06560 000404 


06563'050922- 


906564'030003-RDPSC: 
26565'021764 
%6566°113000 

06567 “21082 

6578 °830011- 
06571'025765 

G6572° 235006 
96573'156414 
26574063077 
065757024055- 


USUBR 
STA 
STA 
STA 
SUBZL 
STA 


MTDIO 
JMP 
JMP 
ISZ 
SUB 
STA 


MTDIO 
HALT 
MTDIO 
JMP 
JMP 
LDA 
MOV 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 
ISZ 
LDA 
LDA 
USGT 
JMP 
DSZ 
JMP 
ISZ 
JMP 


LDA 
LDA 
STA 
LDA 
USLT 
JMP 
ADDI 
STA 


LDA 
LDA 
ADD 
LDA 
LDA 
LDA 
LDA 
SEQ 
HALT 
LDA 


RDPAT,5 
@,CHTTO,3 
1,CHLPT,3 
2,FILCT,3 
2,90 
@,CPAT,3 


MTRD,.BUFF,RECSZ 


.*2 

RDPSC 
NRERP 

9.2 

2 ,ERRCT,3 


MTSBW,.BUFF,1 
MTRD,.BUFF,RECSZ 


.+2 
RDPUD 

2, ERRCT,3 
2,2,S2R 
RDP1 
2,SPNT 

9 ,ESTAT,2 
@,FILCT,3 
Q,EFILE,2 
Ø,CPAT,3 
Ø,EPAT,2 
ERRCT,3 
1,ERRCT,3 
2,NRTRY 
1,2 

RDTRY 
NRERP 

.*1 

NRERF 
RDPRT 


2,SPNT 
Ø, ERRCT,3 
Q , ERTRY,2 
9 ,SEND 


1,=-RECSZ+1 


e. 


`e sas "wo we 


; 


-ο- 


we WO we we we `. 


`. *ee we 


we we wee we we 


Μο wo 


SUBROUTINE TO READ A PATTERN FILE 


ENTRY POINT, 5 TMPS 
SAVE CHANNELS 


SAVE FILE COUNT 
CPAT = 1 


ERROR RETURN 
SUCCESS RETURN 
INC. # OF READ ERROR WITH i 
ERRCT = 9 


SPACE BACKWARD 1 RECORD 
ERROR RETURN 


ERROR RETURN 
SUCCESS RETURN 


IF (ERROR COUNT €) 


INC ERROR COUNT 


THEN UPDATE ERROR SUMMARY | 
| 
IF(ERRCT .LE. NRTRY) | 


DEC # OF READ ERRORS WITH 
JUST IN CASE 

INC # OF READ ERRORS WITH 
GIVE-UP 


A 
A 
GET POINTER INTO SUMMARY DAT 
UPDATE ERROR COUNT 


THEN RETRY READ | 
| 
| 
IF(SPNT .LT. SEND) x 


THEN SPNT = SPNT +4 


GET ADDRESS OF PATTERN TABLE 
GET PATTERN # 

INDEX INTO TABLE 

GET PATTERN 

GET ADDRESS OF BUFFER 


IF(FILE COUNT DON'T MATCH) 


THEN ERROR 
SET LOOP COUNT 


Al A CORPORATION / 


9021 MTD 


ἃ @1 065767151400 RDPTS: INC 2,2 ; TEST FOR PATTERN MATCE 3 
92 96577 “935008 LDA 3,2,2 ; IF(PATTERN DON'T MATCH) 
23 06600°116414 SEQ 9,35 
64 066901'96307" HALT ; THEN ERROR 
95 06602'1254904 INC 1,1,52R 
G6 066903'02907"73 JMP RDPTS 
07 
98 36604034016 LDA 3, UFP 3 RESTORE FP 
99 66605΄611764 ISZ CPAT,3 ; INC. CURRENT PATTERN # 
10 96606°@21764 LDA @,CPAT,3 | 
11 06607΄02405ι- LDA 1,-NPAT ; IF(CPAT .LE. NPAT) | 
12 0661Ι0΄106452 USGT 2,1 | 
13 06611'0909660 JMP RDPLP ; THEN LOOP | 
14 
15 RDPRT: MTDIO MTSFW,.BUFF,2 3 SPACE FORWARD TO EOF 
16 606622’ 000401 ΝΟΡ 
17 URET s RETURN 
18 . EJ EC 


Al CORPORATION , 


| 0022 MTD 
4 901 ^ ~ 


02 USUBR PERR,2 ; ENTRY POINT, 2 TMPS 

95 δ6625΄ 641767 STA @,CHTTO,3 ; SAVE CHANNELS 

04 06626'045"766 STA 1,CHLPT ,3 

05 EMSG ^ERROR SUMMARY 

06 URET 

e > 

08 USUBR PSTAT,2 ; ENTRY POINT, 2 TMPS 

99 06655΄041767 STA 2,CHTTO,3 > SAVE CHANNELS 

10 206656'945"766 STA 1,CHLPT,3 

11 EMS G “STATICTICAL_ SUMMARY” 

12 URET 

15 $ 

τω --ἕἪΝΠΝΝΝΝΝ ΝΠ“, 
, 

16 06707'0901000 SBUFB: .BLK 512. ; SUMMARY BUFFER — BEGIN (128 

17 07707'000004 SBUFE: .BLK 4 s SUMMARY BUFFER - END ( 1 

, 


18 07713'0190009 BUFF: .BLX 4096. 


19 .END 
20 09023-020000 
21 202000 
22 2000007 
23 e00060 
24 2900912 
25 209014 
26 001000 
27 200040 
28 000000 
29 004000 
30 000020 
31 090400 
n 32 9900001 
33 2409000 
34 200200 
35 004101 
36 29903720 
37 200022 
38 001750 
39 900004 
40 9190000 
41 007777 
42 000005 
43 0090996 
44 009002 
45 020903 
46 177401 


**00000 TOTAL ERRORS, 2000€ PASS 1 ERRORS 


1/0 BUFFER 


2023 MTD 


ADDI 20220247 MC 1/61 3/17 5/20 3/24 3/26 5/50 
19/04 19/19 20/48 
ANDI 2920255 MC 1/01 3/16 3/28 3/24 3/26 3/32 
BITI 2090263 MC 1/61 2/04 3/02 4/37 5/46 7/24 
7/52 8/85 8/06 8/32 8/33 8/38 
€ 8/58 9/05 9/06 9/17 9/18 9/25 
9/37 9/38 9/44 9/45 9/58 16/52 
11/32 11/40 12/27 12/31 12/38 12/41 
15/05 13/08 13/12 13/19 13/22 13/26 
14/32 14/36 14/39 14/45 14/52 14/56 
15/11 15/14 15/18 15/25 15/28 15/32 
16/09 17/42 17/56 
BNOCT 209030^* 3/11 3/12 
BUFF 207713^* 5/87 22/18 
CHLPT 177766 1/@2 3/05 5/11 5/12 5/35 7/07 
7/36 8/12 8/15 8/47 10/04 10/09 
14/06 16/03  1"7/904 17/23 18/909 20/06 
22/10 
CHTTO 177767 1/02 2/07 5/09 5/10 5/34 7/906 
8/14 8/46 10/08 12/07 14/05 16/02 
17/28 17/46 18/08 20/05 22/03 22/89 
CMPI 2099260 MC 1/61 7751 8/25 8/32 8/57 9/05 
9/25 9/37 9/44 10/45 18/47 11/27 
CPAT 177764 18/94 18/05 18/12 18/15 18/46 19/23 
20/59 20/30 28/52 21/89 21/18 
CR 209915 1/02 5/21 5/49 6/25 6/26 6/2" 
6/29 6/30 6/31 6/32 7/16 7/27 
7/50 7/51 7452 8/03 8/64 8/05 
8/18 8/31 8/32 8/33 8/41 8/50 
8/57 8/58 9/04 9/05 9/96 9/16 
n 9/18 9/24 9/25 9/26 9/36 9/37 
9/43 9/44 9/45 9/53 10/12 10/51 
11/26 11/07 11/31 11/32 11/43 12/11 
12/23 12/30 12/31 12/37 12/38 12/44 
13/34 13/05 13/11 13/12 13/18 13/19 
15/26 13/30 13/34 13/43 14/09 14/11 
14/35 14/36 14/42 14/43 14/55 14/56 
15/11 15/17 15/18 15/24 15/25 15/31 
15/40 16/06 16/12 17/26 17/59 22/06 
DCNT 29909012 1/62 4/56 7/44 14/51 
DCOM 2004205” 6/21 6/68 
DELAY 2900651 MC 4/01 4/35 7/43 14/52 
DEVCD 177765 19/24 11/04 11/06 
DICIT 980524 MC 3/11 3/19 3/23 3/25 3/29 3/31 
EFILE 20900900 17/05 18/45 20/29 
EHALT 000554 MC 4/61 7/91 8/05 8/32 8/57 9/85 
9/25 9/37 9/44 180/51 11/96 11/31 
12/37 12/44 183/04 13/11 13/18 13/25 
14/42 14/55 15/10 15/17 15/24 15/31 
ELOOP 2003907 MC 2/61 7/50 8/04 8/31 8/56 9/04 
9/24 9/36 9/43 
EMLPT 6006012” 2/85 3/81 
EMRET 0020237 3/83 3/89 
EMSG @€8355 MC 2/01 5/20 5/48 7/09 7/26 7/48 
7/51 7/52 8/02 8/83 8/05 8/26 
| 8/39 8/32 8/33 8/46 8/49 8/55 
e 8/58 9/05 9/25 9/26 9/15 9/17 
| 9/23 9/25 9/26 9/35 9/37 9/38 
9/44 9/45 9/52 10/11 180/50 10/52 


3/32 


3/32 
7/51 
8/57 
9/26 
11/07 
12/45 
13/40 
15/07 
15/37 


7/31 
12/08 
22/04 


7/35 
17/22 


9/17 
19/24 


6/28 
7/49 
8/06 
8/56 
9/17 
9/38 
10/52 
12/13 
12/45 
13/25 
14/19 
15/10 
15/52 
22/12 


9/17 
12/30 
14/35 


9/16 


7/49 
8/17 
8/57 
9/18 
9/42 
11/05 


CORPORATION 


EPAT 
ERMSG 
ERRCT 


ERTRY 
ESET 


ESTAT 
FILCT 


HR&2G 
HR@2V 
HROSH 
HR2 4" 
HRO4K 
ERO 4X 
HR@SA 
HROSN 
HRS 
HRØGM 
HRØGS 
HRGZ 

f HRO"L 
HRO?S 
HRO7Z 
HR@86 
HR28D 
HR2SK 
HROSR 
HRØ9M 
HROOT 
HR@A1 
HR2A8 
HROAF 
HROAM 
HR9 AT 
IOR 
IOTBL 
LDAIU 
LF 


290992 
200000! EN 
177763 


2290091 
2003500 MC 


2009003 
177765 


201075” 
301272” 
301476” 
201726” 
302055” 
002207” 
302331” 
302467” 
222620" 
293070” 
203170* 
003273” 
303607” 
303716” 
084820" 
004123 ° 
@04225° 
294339 * 
004432” 
205063” 
305170” 
205311” 
905425” 
305539” 
005641” 
305745” 
000266 MC 
000141” 
90292165 MC 
909012 


5/49 
8/93 
8/33 
9/85 
9/26 
9/53 
11/32 
12/37 
13/12 
13/43 
14/43 


7/10 
8/94 
8/41 
9/86 
9/36 
18/12 
11/43 
12/38 
13/18 
14/29 
14/55 


7/27 
8/25 
8/59 
9/16 
9/37 
19/51 
12/11 
12/44 
13/19 
14/11 
14/56 


l 
i 


9025 MTD 


11229 
112020 
LL23A 
11040 
LLO4D 
11540 
1109559 
11056 
116591 
LOOP 


LR929 
LR920 
LROSA 
18042 
LR94D 
LR24Q 
18955 
18056 
18051 
M1LOP 
M1RET 
M1S G 

M1SLP 
M1SRT 
M1SUB 
M2LOP 
M2RET 
M2VAL 
MSB1 

MSD1 

M3D2 

MSLP1 
MSLP2 
MSPAS 
M3 RET 
MSWAT 
M4ER1 
M4IS1 
M4IS2 
M4MSK 
M4PAS 
M4RET 
M4RIY 
M4RT1 
M4SUB 
MSER 

MSER1 
MSPAS 
MSRET 
MSWR 

M5WR1 
M5WR2 
M5WRS 
M6ER1 
M6LOP 


901041 ° 
001236" 
301442” 
001672” 
302021” 
302153” 
002275” 
002433” 
082564" 
990001 


001043” 
001240” 
001444” 
001674” 
002023” 
002155* 
00227" ° 
902435* 
002566” 
000624’ 
000663” 
981075" 
300672” 
001272” 
009665” 
001333” 
001534” 
301476” 
301726” 
002207” 
002467” 
001576” 
202055” 
002620” 
3092655” 
002331” 
003072” 
902762” 
2035202” 
303172” 
303274” 
303341” 
303071” 
093170” 
202737” 
004225” 
004330” 
204432” 
004574” 
2993697 * 
203716” 
084020” 
004125” 
005641” 
084750" 


15/17 
16/26 
7/51 
8/25 
8/32 
8/57 
9/85 
9/17 
9/25 
9/37 
9/44 
2/01 
8/57 
7/51 
8/65 
8/32 
8/57 
9/05 
9/17 
9/25 
9/37 
9/44 
7/19 
7/25 
7/46 
7/40 
7/58 
7/16 
8/21 
8/39 
8/28 
8/54 
9/14 
9/34 
8/52 
9/02 
9/41 
9/51 
9/22 
12/48 
19/19 
11/15 
12/24 
11/19 
11/69 
19/49 
12/54 
10/18 
13/29 
13/16 
13/23 
13/41 
12/28 
12/35 
12/42 
13/22 
15/22 
14/26 


15/18 
16/12 


7/39 
9/05 


19/24 
17/26 


7/51 
9/17 


8/95 
7/20 


9/85 
9/17 


11/41 
11/22 


11/11 


15/25 15/31 15/32 15/40 
17/59 22/06 22/12 


8/65 8/26 8/52 8/51 
9/25 9/37 9/44 


7/35 


9/25 9/37 9/44 


11/43 


AA CORPORATION / 


M6PAS 
MORET 
M6RW 
M6SBW 
METBT 
@ norr 
M6WT 
M7RET 
MBLOP 
MBRDP 
MBRET 
ΜΑΦΊΝ 
MA025 
MA027 
MAG2K 
MAS2M 
ΜΑΘΘ8 
MA?6Q 
MAØ?J 
MAG7Q 
MAQ7XY 
ΜΑ684 
ΜΑΖΘΒ 
ΜΑΖΒΙ 
MAOBP 
MAGOK 
ΜΑΖΘΒ 
ΜΑΖΘΖ 
ΜΑΦΑΘ 
MAQAD 
@ ποι 
MAQAR 
MB@1N 
MB025 
MB027 
MB02K 
MBO2M 
ΜΒ058 
MBGEQ 
MBOTJ 
MBB7Q 
MBOTX 
MB2B4 
MBOBB 
MB08I 
MBOBP 
MBOOK 
MBOOR 
ΜΒΖΘΖ 
MB2A6 
MB@AD 
MBOAK 
MBOAR 
MCO1A 
MCO1N 
MCO1S 


@ o: 


MC025 


205745” 
086017" 
305178” 
985530" 
205425” 
205063” 
905311” 
206101” 
006155* 
0906204^ 
996251^ 
990367 ' 
090726" 
088766" 
001123” 
81163” 
201367“ 
005121” 
9035540* 
003647” 
203751" 
084054’ 
004156 “ 
@0@4261 ” 
604565” 
305014” 
05121” 
005242 
005556” 
205461" 
905572 ° 
205676” 
200362 ^ 
200721 ° 
309761” 
301116” 
991156” 
301362” 
003114” 
003505 
003642* 
203744” 
904047" 
304151” 
004254” 
304356” 
305807” 
205114” 
305235” 
305351” 
005454” 
305565” 
305671” 
000277” 
00053570” 
39601” 
000652" 
900727” 


9027 MTD 


MC227 
MC22D 
MC£22I 
MC22K 
μεσον 
MC22S 
MC22X 
MC033 
MC238 
MCOSE 
MC2O3J 
MCZO 
MCOSU 
MCOSY 
MC044 
MC049 
MCO4B 
MC@4H 
MCQ4M 
MC@40 
MC240 
ΜΟΘ47 
MC251 
MCg5"7 
MCOSC 
MC25E 
MC25K 
MC@5P 
MCOSR 
MC?5X 
MC262 
MC067 
MC@6D 
MC26K 
MC260 
MC? 6Q 
MC26U 
MCO6X 
MCO71 
MCO'76 
MC2"C 
ΜΟσΤΕ 
MC07G 
MC0@7J 
MC'N 
ΜΟΘΤΩ 
MC07U 
MC@7X 
MC281 
MC284 
MC288 
ΜΟΘ8Β 
MC28F 
MCOBI 
ΜΟΘΘΜ 
MC28P 
MC@8T 
ΜΟΦΘΥ͂ 


002767 “ 
201826’ 
081863" 
001124” 
301164” 
301223” 
301268” 
301317” 
001570” 
091427 * 
001464" 
301523” 
301563” 
301623” 
321657” 
901714’ 
301752” 
202006” 
902043” 
902184” 
202140” 
02175” 
082226" 
g@2262 
002317" 
002364" 
002420" 
902455" 
082515” 
902551’ 
302696” 
302644” 
902796" 
983925" 
393056” 
083122” 
903156” 
983230" 
203261’ 
003330" 
303376” 
023426" 
003472 ° 
605541” 
903575* 
203652" 
605704” 
093752" 
084026" 
804055’ 
904111^ 
904157" 
084213’ 
004262" 
904316" 
004564” 
004420" 
004451” 


7/50 
7/51 
7/52 
8/83 
8/84 
8/05 
8/26 
8/18 
8/31 
8/32 
8/33 
8/41 
8/59 
8/56 
8/57 
8/58 
9/24 
9/85 
9/86 
9/16 
9/17 
9/18 
9/24 
9/25 
9/26 
9/36 
9/37 
9/38 
9/43 
9/44 
9/45 
9/53 
19/12 
10/51 
19/52 
11/26 
11/87 
11/31 
11/32 
11/43 
12/11 
12/13 
12/23 
12/32 
12/31 
12/37 
12/38 
12/44 
12/45 
15/54 
15/05 
13/11 
13/12 
13/18 
13/19 
13/25 
13/26 
13/32 


---- o0 txt S αμ 


MCØ8SX 
μοσο2 
MC298 
ΜΟΖΘΑ 
MC09C 
ec ΜΟΖΘΚ 
MC290 
MCOOR 
MC29Y 
ΜΟΘ97 
MCOAS 
ΜΟΘΑΘ 
ΜΟΦΛΛ 
ΜΟΖΑΌ 
MCOAH 
ΜΟΘΑΚ 
MCØAO 
MCØAR 
MCØAV 
MCB 
MCØBG 
MCØBB 
MCØBH 
MCØBS 
MCØCG 
MCØCK 
MEC1A 
MEO1N 
ΜΕΘ15 
MEQ1Y 
m ME025 
ME027 
ME@2D 
MEg2I 
MF02K 
MEQM 
MEQ2S 
MEO2X 
MEZ S3 
ME@38 
MEOSE 
MEOSJ 
ME030 
ME03U 
MESSY 
ME@44 
MEQ49 
MES4B 
MEO4H 
MEO4M 
ME@40 
MEO4U 
MEG 47 
MEQ51 
MES? 
ME@SC 


OQ osr 


ME@ 5K 


004511” 
094563" 
004635" 
094665” 
094731" 
305015” 
005051” 
905122’ 
305156” 
005243” 
0095277 ° 
005357” 
005413’ 
025462" 
@05516° 
995573" 
685627 ° 
90567" ° 
005733" 
096096* 
906937 * 
@06070 
@06125” 
096240" 
006642” 
306675” 
900276* 
000366” 
@@o6290 
@0Q0651 “ 
200725* 
000765” 
001025” 
01062” 
001122” 
01162” 
001222” 
001257” 
021316" 
001366” 
001426" 
01463” 
01522” 
301562” 
21622" 
301656” 
301713” 
001751” 
0902095* 
002042" 
082193" 
302137” 
302174” 
282225’ 
302261” 
002316" 
902363" 
9024177 


13/34 
13/43 
14/29 
14/11 
14/19 
14/35 
14/36 
14/42 
14/43 
14/55 
14/56 
15/10 
15/11 
15/17 
15/18 
15/24 
15/25 
15/31 
15/32 
15/40 
16/86 
16/12 
17/26 
17/59 
22/26 
22/12 
5/21 
5/49 
7/18 
7/27 
7/49 
7/59 
1.51 
7/52 
8/83 
8/04 
8/05 
8/26 
8/18 
8/31 
8/32 
8/33 
8/41 
8/59 
8/56 
8/57 
8/58 
9/04 
9/95 
9/96 
9/16 
9/17 
9/18 
9/24 
9/25 
9/26 
9/36 
9/37 


Al CORPORATION 


| 0029 MTD : 


ME@SP 
ME2SR 
MEg5X 
ME262 
ME@67 
ME@6D 
MEGK 
MEGO 
ME26Q 
MEQ6U 
ME06X 
ME@71 
ME@76 
ME27C 
ΜΕΟΤΕ 
MEO7G 
ME2'7J 
MEQ'N 
MEO "7Q 
MEO'7U 
ME2"X 
ME281 
ME284 
ME288 
ME08B 
ΜΕΘΘΡ 
ΜΕΘ8Ι 
ΜΕΘΘΜ 
ME@8P 
ΜΕΘΘΤ 
ΜΕΟΘΥ 
MEOBX 
MEQ92 
ME098 
ΜΕΘΘΑ 
ME29C 
ΜΕΘΘΚ 
ME290 
ME@OR 
MEOOV 
MEQ9Z 
MEAS 
MEAG 
MEO AA 
MEOAD 
MEJAH 
MEO AK 
MEC AO 
MEO AR 
MEOAV 
MEZ BØ 
ME2B6 
MEO BB 
MEQBH 
MEQBS 
MEOCG 
MEOCK 
ML@1A 


002454” 
002514” 
222550" 
982605" 
302643” 
02705” 
303024” 
903055” 
003120” 
003155” 
303227” 
003268” 
303327” 
003375” 
Ø03425° 
003471" 
993537" 
093574" 
903646* 
203703" 
083758" 
084005" 
004053 ° 
924110" 
004155” 
904212’ 
904260 * 
924315" 
894362" 
004417” 
004450” 
304510” 
004562” 
004634” 
304664” 
204730” 
305013” 
905050" 
85120’ 
985155’ 
605241” 
905276* 
305355” 
005412” 
@Q5460 
025515’ 
985571" 
905626 * 
095675" 
805732" 
ροθ6ρο5΄ 
006036" 
006967" 
906124” 
306237” 
306641” 
006674” 
30276” 


9/38 

9/43 

9/44 

9/45 

9/53 
10/12 
19/51 
12/52 
11/26 
11/87 
11/31 
11/32 
11/43 
12/11 
12/13 
12/23 
12/39 
12/31 
12/37 
12/38 
12/44 
12/45 
15/64 
15/05 
13/11 
13/12 
13/18 
13/19 
13/25 
13/26 
13/32 
13/34 
13/43 
14/89 
14/11 
14/19 
14/35 
14/36 
14/42 
14/43 
14/55 
14/56 
15/10 
15/11 
15/17 
15/18 
15/24 
15/25 
15/31 
15/32 
15/40 
16/06 
16/12 
17/26 
17/59 
22/06 
22/12 

5/21 


Al CORPORATION / 


000366^ 
0020609" 
000651” 
992725* 
200765" 
9019025* 
@01062 
901122^' 
901162" 
901222” 
301257” 
901316^ 
091366" 
091426^* 
001463 ^* 
001522” 
091562” 
301622” 
021656’ 
01713’ 
901751” 
02005” 
302042” 
002103" 
202137” 
002174" 
902225* 
002261 “ 
902316’ 
ϱ0ρ565΄ 
302417” 
002454” 
θθ2514΄ 
902550 ^ 
982605" 
92643" 
062705" 
303024” 
03055” 
03120” 
303155” 
003227” 
093260" 
03327” 
093375" 
003425” 
005471 ° 
g03537* 
003574" 
983646“ 
303703” 
03750” 
004605” 
84053” 
04110” 
304155” 
904212” 
Φ04260΄ 


9/36 
9/37 


19/12 
19/51 
10/52 
11/66 
11/87 
11/31 
11/32 
11/43 
12/11 
12/13 
12/23 
12/30 
12/31 
12/37 
12/38 
12/44 
12/45 
13/04 
13/285 
13/11 
13/12 
13/18 


Al CORPORATION 


0031 MTD | 


΄ 


MLO8M 
MLOSP 
ML@8T 
ML28V 
ML28X 
ML292 
ML098 
ML@9A 
ML09C 
MLOOSK 
ML@90 
ML@OR 
MLOOV 
ML892 
MLOAS 
ML@A6 
MLOAA 
ML@AD 
MLOAH 
MLØ AK 
ML2AO 
ML@AR 
MLOAV 
MLB 
MLOB6 
ML2 BB 
MLOBH 
ML92 BS 
MLOCG 
ML?CK 
MMO1A 
MM@1N 
MM@1S 
MMO1Y 
MM225 
MMØ27 
MM22D 
MM22I 
ΜΜΘΖΚ 
MMO2M 
MM@2S 
MM@2x 
MMO33 
MM2S8 
MMOSE 
MM23J 
MM230 
MM@3SU 
MM@3Y 
MM044 
MM049 
MM24B 
MMO 4H 
MM04M 
MM040 
MMO40 
MM24Z 
MM251 


304315” 
004362” 
004417” 
004457 
304518” 
904562" 
304634” 
664664” 
04730” 
095013’ 
285850’ 
905120" 
925155’ 
605241” 
005276” 
205355” 
005412” 
225460 
005515’ 
005571” 
ρ05626΄ 
ϱ05675΄ 
905732” 
206005" 
006036" 
2906067 * 
006124” 
306237” 
906641 “ 
006674” 
09246” 
300352” 
000565” 
000635” 
300706” 
000744” 
001014” 
921058’ 
0211037 
001141’ 
301211” 
001245” 
301301” 
901358” 
001415” 
091451” 
301585” 
001543” 
201602" 
081645” 
001701” 
901731” 
001774” 
002030 ^ 
ρ0ρ064΄ 
602126” 
@@2162° 
002212” 


13/19 
13/25 
13/26 
15/50 
13454 
13/43 
14/99 
14/11 
14/19 
14/35 
14/36 
14/42 
14/43 
14/55 
14/56 
15/10 
15/11 
15/17 
15/18 
15/24 
15/25 
15/31 
15/32 
15/40 
16/46 
16/12 
17/26 
17/59 
22/06 
22/12 
5/21 
5/49 
7/12 
7/27 
7/49 
7/58 
7/51 
7/52 
8/03 
8/24 
8/25 
8/96 
8/18 
8/31 
8/32 
8/33 
8/41 
8/52 
8/56 
8/57 
8/58 
9/64 
9/85 
9/06 
9/16 
9/17 
9/18 
9/24 


Al CORPORATION 


9052 MTD 


MMO S7 
MM25C 
MMO SE 
MM@5K 
ΜΜΘ5Ρ 
MM@5R 
MM@5X 
MM262 
MM067 
MM@6D 
MMO6K 
MM260 
MMZEQ 
MM26U 
MM@6X 
MM071 
MM2"6 
μμό”ο 
MMO7E 
MM@'7G 
MMO7J 
MMO'N 
MM2'7Q 
MMS7U 
MMØ?X 
MM281 
MM@84 
MM288 
MM@8B 
MM@8F 
MM2BI 
MMOBM 
MM@8P 
MM@8T 
MM@8V 
MM@8X 
MM@92 
MM298 
MMOOA 
Μησος 
ΜΜΘΘΚ 
ΜΜΘΘΟ 
MM29R 
MMOSY 
MM29Z 
MM0A3 
MMQA6 
MMOAA 
MMOAD 
MMOAH 
MM@AK 
MM2AO 
MM2AR 
MMOAV 
MM2 BØ 
MMOB6 
MMO BB 
MM@BH 


892250" 
282304" 
222340" 
092406’ 
002442" 
002472” 
902537 ' 
302573” 
002627” 
092664’ 
003090 “ 
003043" 
003075” 
003143” 
903215” 
003246” 
203305” 
603550” 
983419" 
003447" 
003512” 
083562" 
303621” 
903671^ 
003722" 
083773" 
04026" 
004076” 
304127” 
304200" 
094233" 
904303” 
004334" 
304405” 
304433” 
094466" 
304534” 
084693" 
004647” 
004796" 
004766" 
095036’ 
005967 ” 
005145’ 
205205” 
905264” 
005502” 
025400" 
305431” 
005503” 
005542” 
305614” 
005645" 
O25720" 
005754” 
926026* 
226957" 
006112’ 


9/25 

9/26 

9/36 

9/37 

9/38 

9/43 

9/44 

9/45 

9/53 
18/12 
10/51 
10/52 
11/06 
11/87 
11/31 
11/32 
11/43 
12/11 
12/13 
12/23 
12/32 
12/31 
12/37 
12/38 
12/44 
12/45 
13/04 
13/25 
13/11 
13/12 
13/18 
13/19 
13/25 
13/26 
13/32 
13/34 
13/43 
14/39 
14/11 
14/19 
14/35 
14/36 
14/42 
14/43 
14/55 
14/56 
15/10 
15/11 
15/17 
15/18 
15/24 
15/25 
15/31 
15/32 
15/40 
16/26 
16/12 
17/26 


Η] CORPORATION 


0055 MTD 


MMØBS 
MM2CG 
MM CK 
MOVAU 


MOVUA 


MR21A 
MROIN 
MR@1iS 
MRO1Y 
MR225 
MROZ"? 
MR22D 
MRE2I 
MR@2K 
MRO2M 
MRO2S 
MR22X 
MR033 
MR038 
MROSE 
MROSJ 
MR030 
MROSU 
MROSY 
MR244 
MR049 
MR04B 
MR0@4H 
MR@4M 
MR@40 
MRO4U 
MRO4Z 
MR251 
MR@57 
MR@5C 
MROSE 
MROSK 
MROSP 
MROSR 


886222" 
906630 ^* 
296662 * 


9091354 MC 


22901356 MC 


29093510 * 
900404* 
200612” 
900663* 
000743 ° 
901005^ 
301037” 
021974" 
901140" 
001200” 
301234” 
001271” 
301338” 
301404” 
001440” 
081475” 
201534^ 
001574” 
301634” 
301678” 
201725” 
301763” 
002017” 
002054” 
82115” 
202151” 
002206” 
082237” 
302273” 
002338” 
302375” 
302431” 
002466” 
302526” 


3/14 
5/28 
7/51 
8/51 
9/49 
14/29 
3/20 
3/35 
7/27 
8/05 
8/50 
9/16 
9/37 
19/51 
12/11 
12/44 
13/19 
14/11 
14/55 
15/25 
17/59 


3/15 
5/26 
8/85 
8/57 
10/11 
15/36 
3/23 
5/21 
7/49 
8/96 
8/56 
9/17 
9/38 
10/52 
12/13 
12/45 
13/25 
14/19 
14/56 
15/31 
22/96 


5/20 
5/28 
8/17 
9/45 
11/59 
16/65 
3/24 
5/30 
7/59 
8/18 
8/57 
9/18 
9/43 
11/86 
12/23 
13/04 
13/26 
14/29 
15/19 
15/32 
22/12 


3/24 
5/39 
8/20 
9/17? 
12/10 
16/08 
3/26 
5/39 
7/51 
8/31 
8/58 
9/24 
9/44 
11/07 
12/50 
13/85 
13/32 
14/35 
15/11 
15/40 


5/26 3/38 
5/40 7/09 
8/32 8/37 
9/25 9/37 
13/39 14/08 
17/25 17/55 


3/29 3/38 
5/40 5/49 
7/52 8/03 
8/32 8/33 
9/04 9/05 
9/25 9/26 
9/45 9/53 


11/31 11/32 
12/31 12/37 
13/11 13/12 
13/34 13/43 
14/36 14/42 
15/17 15/18 
16/06 16/12 


e A CORPORATION 


MR@5X 902562” 9/44 
MR@62 Q02617” 9/45 
MRQ67 0902655^* 9/53 
MR26D δΦ2717΄ 10/12 
ο MR@6K 2003036” 19/51 
MR?60 2093967" 10/52 
MRQ@G6Q 2383136’ 11/06 
MR@6U 003167” 11/27 
MR@6X 003241” 11/31 
MRO71 003272” 11/32 
MRO76 903341” 11/43 
MR@7C 803407” 12/11 
μαστε 00545” 12/13 
MRO?G 003503” 12/23 
MR@7J 609555” 12/32 
MRO7N 2093606^ 12/31 
MRO7Q 003664” 12/37 
MRQ@7U 003715” 12/38 
MR@7X 003766" 12/44 
MR081 004017” 12/45 
MR084 004071” 13/04 
μβθ88 004122” 13/85 
MROBB 094173’ 15/11 
MROBF 0042247” 15/12 
MROSI 004276” 13/18 | 
MR@BM 004327” 13/19 
MR@SP 284420" 13/25 
MR28T 004451” 13/26 
MR@8V 284462" 13/30 
MR@8X 084522’ 13/34 
Q νιοο; 004574” 13/43 
MROSB 094646’ 14/09 
MROOA 004676^ 14/11 
MR29C 004742” 14/19 
MROOK 005031” 14/35 
MR?OO0 225962’ 14/56 
MR29R 605156” 14/42 
ΜΕΘΟΥ 305167” 14/45 
MR?92 805257” 14/55 
MROAS 005310” 14/56 
MROA6 005373” 15/10 
MR@AA 095424^ 15/11 
MROAD 005476” 15/17 
MROAH 005527” 15/18 
MROEAK 005607” 15/24 
MROAO 905640" 15/25 
MROAR 305713” 15/31 
MROAV 005744’ 15/32 
MROBO 2906017^ 15/49 
MROB6 006050” 16/26 
MRØBB 206181” 16/12 
MROBH 906136” 17/26 
MRØBS 006251” 17/59 
MRØCG 286653’ 22/06 
MROCK 006786” 22/12 
m MSO1A 2000247" 5/21 
MS@1N 000353^ 5/49 
MS@1S 0900566" 7/12 


Al CORPORATION 


2035 MTD 


MS01Y 
MS025 
MS@2? 
MS@2D 
MS22I 
MS?2K 
MS02M 
MS02S 
MS22X 
MS955 
MS238 
MSO3SE 
MSOSJ 
MS030 
MS0@3U 
MS03Y 
MS044 
MS@49 
MS 648 
MS04H 
MS@4M 
MS 640 
MS@4U 
MS@4Z 
MS@51 
MS@57 
MS@5C 
MSOSE 
MS@5K 
Μ5Θ5Ρ 
MS 058 
MS05X 
MS062 
MS067 
MS@6D 
MS@6K 
MS 260 
MS@6Q 
MS@6U 
MS @6X 
MSO71 
MS@76 
MS@7C 
MSO7E 
MS@7G 
MSO7J 
MS@7N 
MS@'7Q 
MS07U 
MSO"X 
MS@81 
MS 384 
MS@88 
MS@8B 
MS@8F 
MS 381 
MS@8M 
MS@8P 


00636" 
300707” 
000745” 
001015” 
001051” 
001184” 
001142” 
301212” 
301246” 
301392” 
801351” 
021416" 
201452* 
0901596* 
001544” 
301693” 
301646” 
201702” 
001732” 
301775” 
302031” 
302065” 
382127” 
202163” 
002213” 
302251” 
202325” 
002341” 
302407” 
002443” 
302473” 
002540’ 
002574” 
922630" 
002665 ° 
003001” 
003044" 
903076" 
003144” 
205216’ 
093247” 
003326“ 
983351” 
203411” 
223450" 
083513 ° 
303563” 
303622” 
003672” 
893723" 
003774” 
304027” 
304077” 
004130" 
304201” 
004234" 
904304 * 
904335* 


7/27 
7/49 
7/59 
7/51 
7/52 
8/83 
8/64 
8/85 
8/06 
8/18 
8/31 
8/32 
8/33 
8/41 
8/50 
8/56 
8/57 
8/58 
9/24 
9/25 
9/06 
9/16 
9/17 
9/18 
9/24 
9/25 
9/26 
9/36 
9/37 
9/38 
9/43 
9/44 
9/45 
9/53 
19/12 
18/51 
10/52 
11/06 
11/87 
11/31 
11/32 
11/43 
12/11 
12/13 
12/23 
12/38 
12/31 
12/37 
12/38 
12/44 
12/45 
13/84 
13/25 
13/11 
13/12 
13/18 
13/19 
13/25 


. 2036 MTD 


MS08T 
MS28V 
MS@8X 
MS@92 
f MS@98 
MSQQA 
MSQ9G 
MS99K 
MS290 
Μ5 698 
MS29V 
MS09Z 
MS@AS 
Μ5ΘΑΘ 
MS@AA 
MS@AD 
MSOAH 
MSOAK 
MS @ AO 
MSOAR 
MS@AV 
MS @B2 
MS0B6 
MSQBB 
MS0BH 
MS0BS 
MS@CG 
MS@CK 
MSTAT 


MTD 

MTD?1 
MTD?2 
MTD?235 
MTDO4 
ΜΤΡΘ5 
ΜΤΡΟ6 
MTDC? 
MTD28 
MTDIO 


MTDLP 
MTDRS 
MTDSK 
MTDST 
MTERS 
MTIO 
MTIO1 
MTIO2 
MTIOS 
MTIOS 
MTIO6 
Φ MTIO"7 
MTIO8 
MTRD 


004406" 
204434’ 
224467 ° 
004535" 
094604 ° 
304658” 
304707” 
304767” 
305037” 
305070” 
905144” 
005206” 
305265” 
005323” 
005401” 
905432 ° 
905504" 
005543” 
005615” 
005646” 
005721” 
205755” 
306027” 
g@6060 ” 
006111“ 
306223” 
206631” 
306661” 
177775 


ρ0σρι4΄ 
020560’ 
001274” 
3091536” 
202657” 
003343” 
004576” 
096021 ^ 
906193" 
2006206 


200320* 
0090312^* 
000332 
g00331 
000207 
3009135” 
0061 52΄ 
006155 
200155” 
000163” 
308176” 
000205" 
909212^' 
002009 


EN 


MC 


13/26 
15/39 
19/84 
13/43 
14/89 
14/11 
14/19 
14/35 
14/36 
14/42 
14/43 
14/55 
14/56 
15/12 
15/11 
15/17 
15/18 
15/24 
15/25 
15/31 
15/32 
15/40 
16/66 
16/12 
17/26 
17/59 
22/96 
22/12 
12/24 
13/25 
15/31 
1/82 
6/29 
6/12 
6/11 
6/12 
6/13 
6/14 
6/15 
6/16 
4/21 
17/40 
19/29 
21/15 
5/29 
5/23 
5/31 
5/33 
1/02 
4/01 
4/07 
4/10 
4/13 
4/24 
4/08 
4/36 
4/09 
1/22 


12/50 
14/55 


5/08 
7/96 
8/14 
8/46 
10/08 
12/07 
14/05 
16/02 
17/22 
12/34 
17/44 
19/31 


5/41 
5/47 
5/38 
5/37 
9/09 
4/02 
4/12 
4/11 
4/14 
4/39 
4/82 
4/38 
4/40 
20/12 


12/37 
14/42 


6/02 


13/01 
18/27 
19/33 


5/49 


10/27 


4/15 
4/16 
4/18 
4/41 


20/21 


12/44 
14/55 


13/15 
18/34 
19/35 


15/16 


13/04 
15/10 


14/26 
18/56 
20/11 


14/27 


13/11 
15/17 


15/21 
19/96 
20/18 


19/99 


13/18 
15/24 


17/26 
19/08 
20/20 


£057 MTD 


10/11 11/39 12/10 13/39 14/08 15/56 16/25 
16/28 17/25 17/55 


MTRDS 22929292 1/92 
MTRW 200001 1/22 14/46 17/2" 
MTSBW 60004 το 15/22 17/41 18/35 19/07 19/34 19/56 
20/19 
e MTSFW 2000003 1/02 17/45 21/16 
MTWR 20920905 1/02 12/35 18/28 18/37 
MTWRE 2909996 1/282 13/902 19/30 19/32 
NAMO1 202434” 6/17 6/25 | 
NAM@2 000442” 6/18 6/26 | 
NAM03 066451” 6/19 6/27 
NAM@4 000463” 6/20 6/28 
NAMOS 00477^ 6/21 6/29 
NAM?O6 290516’ 6/22 6/30 
NAM2"? 000540” 6/23 6/31 
NAMQ8 600550΄ 6/24 6/32 
NLOOP 29290000 2/01 5/20 7/99 8/17 8/37 8/49 9/49 
NPAT 0209005 1/02 19/25 21/11 
NREC 200813- 17/11 17/32 19/22 
NRERF 000017- 17/15 17/36 20/39 
NRERP 290916- 17/14 17/35 20/14 20/57 
NRTRY 2290912 1/02 18/50 20/54 
NWERF Q00015- 17/138 17/34 18/56 | 
NWERP 380814- 17/12 17/33 18/30 18/54 
PASCT 177765 1/82 5/22 5/42 5/44 5/49 
PAT — 00203- 5/91 18/14 22/51 
PAT1 155555 1/2 5/02 | 
PAT2 125252 1/2 5/03 
PATS 052525 1/02 5/94 
Q Pana 222220 1/02 5/05 
PAT5 177777 1/82 5/86 
PERR @@6625’ 6/03 22/83 
PSTAT 0606655” 6/84 22/89 
RDAT 177764 7/32 7/4" 7/50 8/91 8/94 
ΒΌΡΙ 806542” 20/25 20/32 
RDPAT 006464” 17/49 20/05 
RDPLP 006471” 20/11 21/13 
RDPRT 296612^ 20/40 21/15 
RDPSC 206564^* 20/15 20/47 20/51 
RDPTS 886576” 21/01 21/06 
RDPUD 006553” 20/22 20/42 
RDTRY 006506” 20/18 28/36 
RECSZ 209400 1/02 18/21 18/28 18/37 20/12 20/21 20/60 


RETSR 0990212 MC 1/01 5/10 4/31 19/37 
SAVE 2090171 MC 1/21 10/26 


SBGN 200020- 17/16 17/29 
SBOT 2090200 1/02 8/22 14/33 15/15 17/43 
SBUFB 006707” 17/16 22/16 
SBUFE 207707’ 17/17? 22/17 
SDAT 177765 7/31 7/32 7/37 7/42 7/49 7/55 8/83 
SEND @@@821- 17/17 19/@1 19/16 20/45 
SEOF 29090400 1/22 
SILGL 2190000 1/02 12/42 13/09 13/23 15/29 
SLOCK 290990904 1/02 12/28 
m SPNT 3200022- 17/18 17/38 18/42 18/57 19/85 19/12 19/20 
20/26 20/42 20/49 
SRDY 2200001 1/62 


————————— ee Ea QNM 


AIA CORPORATION ; 


UT? 
UAC2 


UAC1 


9209099 
002166 MC 
177765 
@00414 
200424* 
9909252 MC 
177771 


177772 


177773 


177774 
177775 


177776 


14/40 
3/28 
8/31 


3/20 
14/26 
3/23 


5/21 
7/58 
8/17 
8/41 
9/04 
9/25 
9/45 
11/26 
12/11 
12/44 
13/19 
14/88 
14/43 
15/24 
16/86 
22/86 


4/25 
7/50 
8/18 
8/5" 
9/18 
9/43 
10/51 
12/84 
12/38 
13/18 
14/09 
14/55 
15/25 
17/59 
4/32 
"751 
8/31 
8/58 
9/24 
9/44 
10/52 
12/13 
12/44 
15/16 
13/43 
14/42 
15/18 
16/46 
18/28 
19/34 
22/1P 


14/53 
3/34 


3/24 
14/29 
3/29 


5/49 
7/51 
8/18 
8/49 
9/05 
9/26 
9/49 
11/07 
12/13 
12/45 
13/25 
14/69 
14/55 
15/25 
16/08 
22/12 


4/32 
7/51 
8/31 
8/58 
9/24 
9/44 
18/52 
12/11 
12/44 
13/19 
14/11 
14/56 
15/31 
22/06 
5/21 
"/52 
8/32 
9/24 
9/25 
9/45 
11/96 
12/23 
12/45 
13/18 
14/29 
14/43 
15/22 
16/12 
18/35 
19/36 


5/29 5/50 
7/10 7/27 
8/03 8/04 
8/31 8/32 
8/51 8/56 
9/16 9/1" 
9/37 9/38 


7/10 7/27 
8/04 8/25 
8/41 8/50 
9/26 9/16 
9/36 9/37 


9039 MTD 


UAC2 


UADD 
UAND 
UCALL 
UFP 


UI 
UINC 
UJSR 
ULDA 
ULNK 
UPC 
URET 


USTA 
USUB 
USUBR 


UTMP 


WRP 
WRP1 
WRPAT 
WRPBE 
WRPFL 
WRPLP 
WRPSC 
WRPUD 
WRTRY 
WTKEY 
XOR 
.BOCT 


- BUFF 


.CFRM 
.CMSK 
.DCOM 


177777 


000146 
209154 
066110 
206616 


9090959 
000157 
000227 
2990140 
177770 
202009 
2004127 


220143 
200151 
2090129 


177767 


206274* 
006345” 
0@6253” 
306367” 
006270” 
006260” 
306420” 
006406” 
306311” 
2902573 

080273 

@00001- 


303011- 


2029025 
0909005 
@00912- 


MC 
MC 


XD 
EN 


1/21 
7/49 
8/26 
8/56 
9/17 
9/38 
12/38 
11/43 
12/37 
13/11 
15/50 
14/55 
15/11 
15/32 
17/45 
19/50 
21/16 
1/61 
1/01 
1/61 
1/61 
4/92 
1/61 
1/01 
1/91 
1/61 
1/61 
1/61 
1/61 
15/40 
1/21 
1/61 
1/61 
14/04 
1/01 
18/08 
22/903 
18/27 
18/41 
17/40 
19/23 
18/22 
18/14 
18/29 
18/38 
18/34 
4/21 
1/01 
3/11 
11/66 
13/25 
15/31 
5/87 
18/35 
20/21 
1/2 
1/02 
1/82 


5/11 
7/50 
8/18 
8/57 
9/18 
9/43 
12/51 
12/11 
12/38 
13/12 
13/34 
14/36 
15/17 
15/490 
17/59 
19/32 
22/86 


77/35 
2/02 
4/24 
5/88 
5/38 


3/11 
7/27 
16/12 


7/05 
16/901 

1/02 
12/07 
22/09 
19/12 
18/48 
18/28 
19/86 
18/25 
19/27 
19/18 
19/12 
18/52 


8/26 
5/49 
12/89 
14/55 


12/35 
18/37 
20/55 
5/36 
5/15 
2/05 


4/32 
7/51 
8/31 
8/58 
9/24 
9/44 
10/52 
12/15 
12/44 
13/16 
13/43 
14/42 
15/18 
16/06 
18/28 
19/34 
22/12 


?/17 
2/06 
5/09 


5/39 


3/35 
8/88 
17/59 


7/34 
17/21 
5/89 
14/85 


19/22 


12/16 

7/49 
12/57 
14/42 


15/22 
19/87 
21/16 
7/16 
5/17 
3/91 


5/21 
7/52 
8/32 
9/84 
9/25 
9/45 
11/26 
12/25 
12/45 
13/18 
14/29 
14/43 
15/22 
16/12 
18/35 
19/36 


7/19 
5/04 
10/27 


14/28 


4/28 
8/41 
19/37 


8/13 
18/07 
7/86 
16/02 


7/50 
12/44 
14/55 


17/41 
19/34 


7/18 
10/15 
5/23 


5/49 
8/03 
8/33 
9/05 
9/26 
9/53 
11/07 
12/20 
13/02 
13/19 
14/11 
14/55 
15/24 
17/26 
18/37 
20/12 


17/39 
3/89 
21/88 


4/30 
9/53 
21/17 


8/45 
20/04 
7/55 
17/22 


8/83 
13/04 
15/10 


17/45 
19/36 


7/20 
5/45 


7/18 
8/04 
8/41 
9/06 
9/36 
19/12 
11/31 
12/31 
15/04 
13/25 
14/19 
14/56 
15725 
17/27 
19/97 
28/19 


17/48 
3/12 


4/32 
11/43 
22/86 


10/07 
22/02 

8/14 
18/28 


8/94 
13/11 
15/17 


18/18 
20/12 


17/40 


6/68 


B | A CORPORATION / 


7/27 
8/5 
8/50 
9/16 
9/37 
18/27 
11/32 
12735 
13/85 
13/26 
14/27 
15/10 
15/31 
17/41 
19/09 
20/21 


3/13 


10/38 
15/43 
22/12 


12/06 
22/08 

8/46 
20/05 


8/31 
13/18 
15/24 


18/28 
20/19 


17/49 
7/23 


.DFRM 0900900153 XD 1/02 7/28 8/09 8/42 9/54 11/44 13/44 
.EMSG 000000- 2/91 5/21 5/49 7/10 7/27 7/49 7/50 


.INTP 903071° XN 10/25 11/01 | 
.M4SB 083171” 11/11 11/14 | 
.MTIO 000002- 4/01 12/35 12/02 13/16 14/27 15/22 17/27 | 


AJA m | 


